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ABSTRACT 


This  report  describes  the  software  of  the  Intrex  Retrieval  System, 
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System  and  to  describe  ih  detail  each  of  the  component  subroutines.  The 
report  is  not  intended  to  be  an  introduction  to  Intrex. 
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I,  INTRODUCTION 


This  report  describes  the  computer  programs  or  software  for  the 
Intrex  Retrieval  System,  The  purpose  of  the  documentation  is  twofold. 
First,  it  is  intended  to  expose  the  general  structure  of  the  system  so  that 
it  may  serve  as  a model  or  prototype  upon  which  other  similar,  but  more 
ope  rational, systems  can  be  based.  Secondly,  it  is  intended  to  describe 


the  Intrex  software  to  a level  of  detail  sufficient  for  a reader  to  understand 
the  purpose  and  logic  of  each  subroutine.  This  detailed  description  i s "fell 
to  be  especially  important  to  the  analyst  or  system  designer  who  may  want 
to  appreciate  the  level  of  complexity  and  hence  the  computational  load  Im- 
posed on  a computer  system  by  the  sophisticated  mode  of  operation  of 


Intrex.  It  is  also  important  for  those  who  must  understand  and/or  main- 


tain Intrex  in  its  present  implementation.  In  order  to  accomplish  these 
purposes,  everything  short  of  the  actual  program  listings  has  been  included. 
It  should  be  recognized  at  the  outset  that  this  report  is  not  meant  to  be  an 
introduction  to  Intrex,  Several  other  publications^  ^ are  available  which 


serve  that  purpose.  In  order  to  arrive  at  a common  starting  po i n tfhowevcr , 
the  present  chapter  does  begin  with  some  mate'rial  of  an  introductory 
nature.  An  attempt  has  been  made  there  to  highlight  certain  aspects  which 
bear  particular  relevance  to  the  software  of  the  Intrex  Retrieval  System. 


1 . 1 


Gene  ral  De s c ription 


Intrex  is  an  experimental,  pilot-mode-ly  machine-oriented  bibliog- 
raphic storage  and  retrieval  system.  A he  system  includes  a computer- 
stored  catalog  of  about  fifte  en  thousand  journal  article  s in  selected  fields 
of  Materials’ Science  and  Engineering  and  the  full  text  of  these  documents 
stored  on  microfiche.  The  heart  of  the  system  is  the  Intrex  retrieval 
programs  which  provide  for  searching  through  the  data  base  to  gather 
lis  ts  of  documents  on  topics  requested  by  users. 

The  Intrex  programs  operate  in  an  on-line  interactive  mode  with 

,/  . . ■ 

users  in  a dialog  with  the  machine.  Users  control  the  actions  of  Iiitrex 
by  issuing  typed  English  commands  within  the  Intrex  language.  Such 
commands  permit  the  user  to  initiate  searches  of  the  catalog  by  subject, 
title,  or  author,  to  combine  lists  of  documents  resulting  for  subsequent 
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searches,  to  save  combined  lists,  and  to  request  output  of  information  per- 
tinent^o  documents  on  the  lists,  Intrex  in  turn  responds  to  these  commands 
with  the  lists  of  documents  found  or  the  other  requested  information.  In  this 
way  the  user  of  Intrex  designs  his  own  search  strategy  from  the  basic  func- 
tions available  to  him.  The  immediate  feedback  given  the  user  insures  that 
®®-ch  such  design  will  be  unique  and  so  can  be  better  suited  to  the  particular 
search, 

A system  diagram  for  Intrex  is  shown  in  Figure  1.1.  The  Intrex  pro- 
grams run  on  the  MIT -developed  CTSS  time  sharing  system  (see  Appendix  C), 
CTSS  provides  for  sharing  the  resources  of  an  IBM7094  computet  among 
thirty  or  so  online  users.  Each  user  who  is  exercising  Intrex  has  his  own 
, — .copy  of  the  Intrex  programs  so  his  actions  are  completely  independent  of  the 
V otijer  users.  The  time  sharing  system  provides  for  allocating  central  pro- 

to  the  users,  and  swapping  their  programs  in  and  out  of  core  in 
such  asway  that  each  user  appears  to  be  receiving  the  full  attention  of  the 
/ large  computer.  Intrex  terminals  also  tie  into  the  separate  text-access  sub- 
I system,  which  consists  of  the  document  collection  on  microfiche  and  the  ma- 
chinery for  selecting' the  microfiche  corresponding  to  a document,  scanning 
the  fiche,  and  sending  the  image  to  the  appropriate  terminal.  The  text  access 
/ subsystem  also  provides  for  microfilm  copy  of  the  full  text.  The  mdcrofilm  is 
produced  within  90  seconds  after  a request  has  been  initiated  at  the  user's 
terminal  and  so  can  be  picked  up  by  the  user  immediately  following  his  ter- 
minal session,  / 

Several  different  types  of  terminals^  are  supported  by  Intrex  rang- 
ing from  an  IBM  2741  typewriter  to  a specially  designed  remote  buffered  CRT 
device  with  expanded  character  set  and  subscripting  and  superscripting  capabil- 
ity. The  terminals  of  this  type  are  interfaced  to  CTSS  and  the  text  access  sub- 
system through  a Varian  620i  minicomputer  the  software  for  which  is  to  be - 
described  in  a separate  report.  For  full-text  availability,  any  type  of  ter- 
minal must  include  a storage  tube  display.  In  the  case  of  the  Intrex  "com- 
bined" terminal,  this  display  is  used  both  for  interaction  with  the  catalog 
and  for  the  display  of  full  text.  Users  whose  terminals  do  not  include  the 
special  storage  tube  display  may  interact  via  the  Intrex  programs  with  the 
catalog  alone.  This  type  of  operation  i.s  more  typical  at  distant  locations 
since  the  text  access,  subsystem  can  currrently  transmit  only  over  rela- 
tively short  distances. 


programs 


buffered  terminals  other  terminals 
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Intrex,  being  an  experimental  retrieval  system,  has  several  novel 
features  that  distinguish  it  from  more  traditional  operational  retrieval  sys- 
tems. One  of  these  features  is  the  availability  of  full  text  at  terminals. 

Others  relate  more  directly  to  the  retrieval  programs  and  so  are  discussed 
separately  below. 

1.1.1  ~ The  Augmented  Catalog 

The  Intrex  data  base  consists  of  an  augmented  library  catalog  with 

4 

a catalog  record  for  each  document  in  the  system.  The  catalog  is  stored 
on  the  disk  of  the  CTSS  time  sharing  system.  The  catalog  records  contain 
the  fifty  fields  shown  in  Figure  1.2.  These  include,  in  addition  to  the  usual 
catalog  entries,  the  abstract  or  excerpts,  table  of  contents,  and  several  other 
items  of  information.  Not  all  of  these  fields  would  necessarily  be  required 
in  a fully  operational  system  - but  it  is  part  of  the  Intrex  experiment  to  de-< 
termine  which  fields  are  of  most  utility  to  users  and  which  could  safely  be 
eliminated.  The  fields-Vstarred  in  Figure  1,2  are  used  for  journal  records; 
the  remaining  fields  pertaining  to  books , conference  papers,  and  other  types 
of  documents.  A typical  catalog  record  is  shown  in  Figure  1. 3.  The  numbers 
at  the  left  between  slashes  are  the  field  numbers. 

The  catalog  records,  which  comprise  the  major  part  of  the  data  base 
ai/id  average  about  two  thousand  characters  in  length  are  compacted  in  order 
to  conserve  disk  space.  The  character  strings  are  stored  in  a special  nine- 
bit  cpde  where  one  code  word  represents  wherever  possible  a pair  of  char- 

7 - **  s ■ ' , _ 

acters  or  digram.  When  compared  to  standard  ASCII  coding  of  individual 
characters,  this  scheme  reduces  the  storage  required  by  31  to  45  percent. 

1.1.2  Free  Vocabulary  In- Depth- Indexing 

’ " ' ~ ~ - o-  • ■ j 

Intrex  uses  a free  vocabulary  indexing  for  documents,  i.e,,  any  wordsj 
or  symbolic  notation  (such  as  H^O)  may  be  included  in  the  index  terms.  Note  j 
in  Figure  1.3  (Field  73)  ‘that  the  subject  index  terms  are  generally  not  just  j 
words  but  entire  phrases.  Note  also  the  number  of  such  index  terms,  a result 
of  the  deep  indexing.  The  inverted  file  (see  following  Section ) to  the  cat-  / 
alog  is  constructed  from  the  stemmed  words  or  symbols  found  in  the  phrases. 

^The  percent  reduction  depends  on  whether  the  ASCII  code  is  packed  into  a 
nine-bit  byte  or  into  a seven- bit  byte  as  is  possible  with  the  36-bit  compute S""** 
word.  , 
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Fig.  1.2  Information  Fields  in  the  Catalog 
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Due  to  the  free  vocabulary  indexing,  the  number  of  postings  in  the  inverted 
file  grows  at  a c rtain  fraction  of  the  rate  of  growth  of  the  data  base.  At  our 
current  level  of  approximately  15,  000  documents  that  growth  rate  is  about 
four  new  postings  for  every  five  new  catalog  entries. 

Documents  for  the  data  base  are  indexed  by  trained  personnel  who 
scan  the  document  for  words  and  phrases  indicative  of  the  subject  matter. 

The  extracted  phrases  and  subject  terms  are  classified  into  five  groups 
or  ranges  which  relate  to  their  coverage  of  the  document.  Range  0 terms 
refer  to  a general  topic  under  which  the  document  falls.  Range  1 terms 
relate  to  the  main  subject  of  the  document,  range  2 terms  to  topics  of 
secondary  importance  3 and  range  3 terms  to  topics  of  minor  imjpo  dance. 
Range  4 terms  relate  to  tools  or  techniques  which  are  used  or  referred  to 
in  the  document.  Precision  of.  retrieval  can  be  controlled  by  this  user 
limiting  searches  to  terms  within  particular  ranges,  * 


1.  1.  3 Stemmed  Terms  in  an  Inverted  File  ■ 

— 7 — i ^ * * 

In  order  to  avoid  an  exhaustive  search  through  all  the  15,  000  catalog 
records  for  matching  terms  each  time  a search  request  is  made,  Intrex  uses 
an  Inverted  File  structure..  That  is;  the  actual  compilation  of  lists  of  docu- 
ments corresponding  to  a given  search  term  is  done  in  advance  of  any  search- 
ing and  only  once- -during  the  so-called  generation  process,.  In  compiling  these 

lists,  the  words  in  the  search  terms  are  first  stemmed;  e . g.  magnetic,  mag  - 

— g 

netism,  magnetize,  and  magnetizability  are  all  reduced  to  the  root  magnet. 

The  document  in  which  a given  search  term  appears  is  added  to  the  list  of  docu 
merits  associated  with  the  stemmed  term.  Thus  when  a search  for  documents 
is  later  requested  by  a user,  Intrex  needs  only  to  find  the  stemmed  search 
term  in  the  Inverted  File,  . From  there,  it  directly  obtains  the  list  of  docu- 
ments, From  that  list,  it  can  obtain,  upon  further  request,  the  actual  catalog 
records.  The  structure  of  the  Intrex  Inverted  File  is  described  in  greater  de- 
tail in  Chapter  II  and  Appendix  B. 


4 ■ '%. 

1.  1,4  Instructional  and  Monitoring  Facilities  f - 

. - ■ ...  \ 

Because  the  Intrex  system  was  intended  for  persons  with  little  or  no 
advanced  training  in  its  use,  as  well  as  for  highly  trained  search  specialists, 
a great  deal  of  effort  was  expended  in  providing  special  techniques  of  system 
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instruction.  The  instruction  aids  include  a guide  to  system  use  that  is  avail- 
able both  in  printed  form  and  online  in  a foirrn  that  is  displayable  in  sections 

t 

under  program  control.  In  addition  the  system  provides  special  instructional 
messages  to  guide  new  users  and  diagnostic  comments  to  help  users  detect 
and  correct  errors. 

To  enable  the  staff  to  review  and  analyze  system  use,  facilities  for 
monitoring  and  Recording  all-interactions  with  the  system  were  devised. 

The  full  dialog  of  each  user  is  automatically  recorded  on  a disk  file  and 
printed  out  daily.  In  addition,  a user  can  be  monitored  from  a remote  ter- 
minal in  real  time.  When  in  this  mode  the  person  at  the  monitoring  console 

can  also  communicate  with  the  Intrex  user  and  aid  in  or  even  control  his  use 

! 

of  the  computer. 


1,2  Programming  Techniques  and  Strategies 

The  foregoing  features  of  the  Intrex  Retrieval  System  influenced  the 
programming  in  several  ways.  The  combination  of  certain  features  caused 
complexities  in  various,  routines . For  example,  the  requirements  for  a 
variety  of  instructional  messages  that  could  easily  be  changed,  an  elaborate 
monitoring  facility,  the  ability  of  the  user  to  interrupt  at  any  point  in  the  pro- 
gram, and  the  necessity  to  adapt  to  a variety  of  terminals  with  different  codes 
and  line  lengths  led  to  a message-handling  routine,  TYFEIT  (See  Section 
3.  1,7.2)  of  considerable  complexity.  The  importance  of  experimentation 
led  to  a desire  to  make  all  programs  flexible  and  modular  so  that  different 
features  could  be  easily  appended  and  experimented  with.  This  in  turn  led  to 
the  extensive  use  of  such  devices  as  table-driven  subroutines  and  a data- 
structure  that  contains  the  results  of  command  language  parsing  and  drives 
the  search  command  modules.  Because  of  our  desire  to  get  experiments 
started  as  soon  as  possible,  many  routines  were,  initially  written  in  a fairly 
simple,  straightforward  way  in  the  AED  source  language.  Later,  when  an- 

. f ' , / ■ 

alysis  revealed  that  certain  routines  were  resulting  in  system  inefficiencies , 
some  of  these  were  rewritten  in  machine  language  and  reassembled  in 

larger  units.  ' 

. Some  features  that  were  origlnially  planned  to.be  tested  have  not  yet 
been  fully  implemented  as  part  of  Hie  Intrex  system.  Thus  there  are  certain 
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structures  within  the  system  which  have  no  current  use.  For  example,  the 
reference  words  include  parameters  specifying  the  word  position  within 
a phrase  and  the  word  ending.  These  factors  could  be  used  in  the  search 
match  algorithm.  It  might  be  added  that,  in  this  case,  it  was  possible  to 
study  the  utility  of  these  additional  features  sufficiently  well  by  simulation 
that  it  was  not  necessary  to  implement  them  directly.  These  features  would 
still  be  desirable  however,  to  increase  retrieval  system  flexibility. 

The  architecture  of  the  CTSS  time-sharing  system  affected  the  pro- 
gramming in  major  ways.  For  example,  the  design  of  the  CTSS  file  sys- 
tem and  the  consequent  inability  to  directly  address  phys ical  storage  loca- 

1 \ 

tions,  and  limited  ability  to  overlap  l/O  and  computation,  critical  in 

our  choice  of  file  and  directory  organization.^  The  size  of  the  programs 
and  the  limitation  or  core  memory  to  32K  words  led  directly  to  the  design 
of  the  overlay  capability  described  in  Sections  2.5  and  3,19.  The  36-bit 
word  on  the  7 094  led  jbo  our  choice  of  nine-bit  ASCII  and  later  digram  codes. 

The  various  I/O  codes  required  by  CTSS  forced  certain  decisions  regarding 
the  storage  of  data  internally  and  the  conversion  processes  nedessary  at 
outputs  In  addition,  items  not  directly  tied  to  CTSS  but  available  on  that 
system  influenced  our  programming  structure.  Most  notably  the  AED  source 
language  (see  Appendix  C)  suggested  certain  particularly  convenient  data 
structures  and  some  -generally  efficient  procedures  for  use  of  core  memory. 

1.3  Contents  of  the  Report 

The  remainder  of  this  report  is  divided  into  five  chapters.  Chapter  II 
is  intended  to  be  an  overview  of  the  Intrex  programs.  The  purpose  there  is  to  pro 
vide  a semi-detailed  description  of  the  programs  on  a modular  level,  A descrip* 

,p 

tion  of  the  data  base  is  included  since  an  understanding  of  that  is  essential  to  an 
understanding  of  the  processes  involved  in  searching.  Chapter  HI  ,is  an  in-depth 
description  of  each  subroutine  of  the  Intrex  retrieval  programs.  The  intent  of 
that  chapter  is  to  describe  the  software  at  a level  that  would  permit  an  applica- 
tions programmer, analyst,  or  similar  person, to  follow  the  actual  program  list- 
ings and  understand  the  logic  of  each  subroutine.  Chapter  IV  deals  with  auxil- 
iary programs  used  for  generation  and  updating  of  the  data  base.  Chapter  V 


For  a thorough  discussion  of  this  point,  including  design  of  a more  nearly 
optimum  storage  configuration  on  a more  modern  system,  see  Kusik.9  and 
also  Goldschmidt,^ 0 
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deals  with  programs  that  are  used*in  support  of  the  retrieval  programs 
The  level  of  detail  for  Chapters  IV  and  V is  intermediate  between  the 
level  of  Chapters  II  and  III.  Chapter  VI  is  a discussion  of  future  plans 
for  the  Inlrex  Retrieval  System,  as  they  relate  both  to  the  current  pro- 
grams'and  to  future  generations  of  Intrex, 


{■ 


/ 


r \* 


II.  SYSTEM  ARCHITECTURE 


The  present  chapter  describes  the  Intrcx  retrieval  programs  on  a 
modular  level.  Such  a description  is  necessary  to  establish  a framework 
into  which  a more  detailed  description  of  the  modules  can  fit* 

2,  1 Overview  of  Software 


four  approximately  3500-word  overlay  segments.  The  current  15,  000 
document  data  base  consists  of  an  author  Inverted  File  of  120,000  words, 
a subject  Inverted  File  of  1 ,400,000 words,  a catalog  file  of  4,200,000  words 
and  a microfiche  directory  containing  1500  addresses  to  the  fiche  locations 
of  documents , : . 

Approximately  300  different  subroutines,  containing  a total  of  about 
30,  000  instructions,  make  up  the  retrieval  program.  About  150  of  these 
subroutines  can  be  described  as  general  purpose  utility  procedures.  They 

f y 

perform  such  basic  functions  as  console  and  disk  I/O,  core  storage  0 
management,  code  conversion,  and  string  manipulation.  The  other  150  sub- 
routines are  special  purpose  subroutines  which,  by  interacting  with  the, 
utility  procedures  and  with  each  other,  carry  out  the  retrieval  functions 
of  INTREX.  These  subroutines  can  be  clustered  functionally  into  four 
groups:  the  initialization,  command,  search,  and  output  modules.  The 

initialization  module  starts  up  the  system  and  logs  in  the  user.  The  com- 
mand module  accepts  commands  from  the  user  and  either  executes  them 
directly  or  generates  a data  structure*  which  is  later  interrogated  by  the 
search  or  output  modules.  The  search  module  searches  the  Inverted 
Files  , The  output  module  displays  information  from  the  augmented  cat- 
alog/ the  fiche  directory,  or  the  text  access  mechanism*  The  flow  of  con- 
trol among  these  modules  is  directed  by  the  supervisory  subroutine 
SUPER,  Each  of  these  modules  is  described  in  more  detail  below. 


The  retrieval  program  consists  of  a 32,  768-word  core  image  and 


’"'Word,  size  for  the  IBM  7 094  is  36  bits 
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2*  1 . 1 Initialization 


Initialization  takes  place  in  three  phases.  The  first  phase  ini- 
tiaiizes  the  subroutines  in  overlay  segments.  The  second  phase  completes 
the  setting  of  parameters  which  are  independent  of  a particular  retrieval 
session.  The  third  phase  prepares  the  system  for  a session. 

During  the  first  phase  of  initialization,  four  loads  are  performed, 
each  of  which  consists  of  the  core-resident  portion  of  the  system  and  one 
of  the  four  overlays.  The  hierarchical  relation  of  the  various  subroutines 
of  the  initialization  module  is  depicted  in  Fig.  2*1*  Figure  2.2  shows  the 
sequence  of  functions  involved  in  initialization  and  the  routines  performing 
these  functions.  When  a subroutine  has  completed  its  task,  it  returns  to  the 
subroutine  on  the  level  just  above  it.*  After  each  load,  control  is  trans- 
ferred to  the  main  subroutine,  SUPER,  which  in  turn  transfers  control  to 
the  overlay  generation  subroutine,  SYSGEN,  S YSGEN  calls  SEGINT,  which 
in  turn  calls  initialization  routines  associated  with  subroutines  in  the  over- 
lay section  (see  Fig*  2*  1)*  SYSGEN  then  writes  out  the  overlay  as  a sep- 
arate disk  file  and  halts.  Each  of  the  four  segments  is  generated  in  the 
same  way.  After  the  fourth  segment  is  generated,  the  core  image  is  saved. 

This  core  image,  together  with  the  four  overlay  files,  makes  up  the  re- 

< ’ ■ 

trieval  system. 

The  second  phase  of  initialization  performs  the  remaining  initialization 
tasks  that  are  independent  of  a particular  retrieval  session*  This  phase  starts 
with  the  execution  of  the  core  image  saved  at  the  end  of  the  first  phase*  SYSGEN 
calls  INXTDB,  which  defines  areas  for  the  INTREX  data  structure  (see  Section 
2,3),  One  word  is  allocated  for  the  System  State  Table  (SST ),  which  is  used 
as  an  array  of  control  bits.  Fifty  words  are  allocated  for  the  Parameter  Op- 
tion Table  (POT),  which  is  used  to  store  important  data  elements,  such  as 
the  names  of  system  files*  Nine  words  are  allocated  for  the  Command  List 
(CL),  which  is  the  beginning  of  a data  structure  which  will  expand  or  shrink 
depending  on  the  user's  commands.  SUPER  then  calls,  INIFDC,  which  allocates 
seven  432  word  blocks  of  storage  to  be  used  as  I/O  buffers  and  calls  INIT2, 
PREP,  TABLE,  MONINT,  and  INICON  (see  Fig.  2.  2).  SUPER  then  calls 
INIVAR  which  transmits  to  the  console  a request  for  the  second  names  of  the 
Catalog  Files  and  the  Inverted  Files.  After  these  names  have  been  entered* 
INIVAR  calls  IFSINT,  which  reads  into. memory  the  directories  for  the  In- 
verted Files*  IF5INT  also  calls  INIEND,  which  initializes  the  ending  table 
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Fig,  2.1  The  Initial izat Ion  Module 
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which  is  used  for  stemming  search  terms*  INiyAR  returns  to  SUPER 
which  ends  the  second  phase  of  initialization  by  returning  control  to  CTSS . 
Once  again  the  core  image  is  saved. 

The  third  phase  of  initialization  handles  those  functions  that  are  re- 
lated to  a particular  retrieval  session*  This  phase  has  one  part  that  set? 
up  the  retrieval  system  for  the  session  and  a second  part  that  logs  the  user 
into  the  system.  The  first  part  is  handled  by  DYNAMO,  which  calls  a variety 
of  subroutines  to  complete  the  system  initialization  (see  Fig.  2.  2).  OPFILE 
opens  basic  system  files,  including  the  Catalog  Directory  and  the  overlay 
segments,  IN  IRES  initializes  the  SAVE- RESTORE  package  and  assigns  the 
system  a Monitor  File*  INITYP  reads  either  the  long  or  the  short  message 
file  directory  into  core,  INIDSK  opens  the  Monitor  File.  INIMON  writes 
the  header  information  in  the  Monitor  File  and  ININT  sets  up  the  interrupt 
handling  mechanism* 

The  log-in  process  begins  with  SUPER  asking  the  user  to  type  the 
word  MbeginM*  SUPER  then  calls  CLP  to  await  the  user's  response.  If  the 
user  types  "begin",  SUPER  calls  SIGNIN*  SIGN  IN  asks*  the  user  to  log  in. 

If  the  user  then  types  th€t  word  "log"  followed  by  a space  and  any  non-blank 

,,  i 

character  string,  SIGNIN  will  accept  it  as  a legitimate  log-in.  SUPER  trans- 
fers control  to  CLP,  which  waits  for  a user  command. 

2*  1*2  Command  Interpretation 

The  command  interpretation  module  of  Intrex,  often  referred  to  as 
the  "Command  Language  Processor",  is  based  upon  the  controlling  pro- 
gram CLP,  The  Intrex  Supervisor  (SUPER)  calls  CLP  at  the  outset  of  any 
new  user/system  interaction,  CLP,  in  turn,  calls  several  other  procedures 
which  accept  and  interpret  the  user's  input. 


The  first  routine  called  by  CLP  is  GET  LIN,  which  requests  a logical 
line  of  user  input.*  GET  LIN  informs  the  user  that  Intrex  is  prepared  to  re- 
ceive a command  by  calling  the  small  sub  = procadura  READY,  which  out- 


\ 


*One  logical  line  consists  of  all  the  characters  typed  by  a user  up  to  the  first 
carriage  return  which  is  not  immediately  preceded  by  a hyphen. 
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puts  tha  "R"  or  "Ready"  message,  and  if  the  TIME  mode  is  ON,  calls 
MO  NT  I M to  output  the  CPU  and  real  times  used  since  the  last  call  to 
READY. 

GET. TIN  then  calls  the  CTSS  system  subroutine  RDF LXA  which 
actually  obtains  the  string  of  characters  typed  by  the  user  up  to  and  in- 
cluding the  carriage  return,  GETLIN  then  processes  the  character  string 
to  delete  all  characters  whose  removal  is  implied  by  the  character-delete 
(|or  back  space)  and  line -delete  (a).  A pointer  showing  the  location  and  length 
of  the  edited  input  line  is  returned  to  CEP. 

CLP  then  extracts  the  first  item  or  word  from  the  line  by  calling 
NEXITM,  This  procedure  looks\  for  specified  delimiters , such  as  space, 
hyphen,  slash,  or  carriage  return,  and  returns  a pointer  to  the  string  of 
characters  up  to  the  next  such  delimiter  found.  The  string  pointed  to  by 
this  call  to  NEXITM  will  be,  in  most  cases,  an  Intrex  command. 

CLP  calls  the  procedure  LOOKUP  to  compare  the  first  four  char- 
acters  in  the  string  to  the  list  of  Intrex  commands.  If  there  is  a match, 
then  the  name  of  the  appropriate  procedure  to  process  the  command  is  re  = 
turned  to  CLP.  CLP  then  calls  CALLIT  which  uses  the  name  as  a key  to 
the  overlay  segment  and  location  within  that  segment  where  the  desired 
processing  routine  may  be  found.  Control  is  returned  to  CLP  after  execu- 
tion of  the  command  routine,  and  NEXITM  is  recalled  to  fetch  the  next  com- 
mand, if  any,  from  the  command^ line. 

If  the  first  word  in  character  string  is  not  a command,  it  is  as- 
sumed that  this  word  is  an  argument  to  the  implied  RESTOR  command,  i.  e# 
the  name  of  a list  to  be  placed  in  active  status.  This  is  indicated  by  the  re-  5 
turn  from  LOOKUP  of  an  error  code  to  CLP,  which  then  calls  the  proce- 
dure RESTOR.  If  RESTOR  indicates  that  the  name  does  not  correspond  to 
any  existing  list,  then  CLP  informs  the  user  that  the  word  is  "not  a legal 
command".  When  this  occurs,  CLP  returns  immediately  to  the  supervisor 
without  processing  the  rest  of  the  command  line.  *** 

The  subroutines  called  by  CALLIT  to  perform  the  actions  requested 
by  the  user  through  the  various  Intrex  commands  are-  shown  in  Fig.  2.3, 
Their  names  generally  correspond  to  the  name  of  the  command  which  they 
implement.  The  subroutines  have  been  grouped  in  Fig,  2,  3 according  to 
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Fig,  2.3  The  Command  Module 
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functions  that  they  perform- for  ease  of  reference;  this  grouping  implies  no 
particular  sequence  of  control. 

2.  1.3  Inverted  File  Search 

The  search  module  depicted  in  Pig.  2.4  is  responsible  for  processing 
the  search  data  structures  set  up  by  the  inte rpr etation  of  a search  command 
issued  by  the  user  (described  in  Section  2.  1.  2).  This  inte  rpr  etation  takes 
place  in  the  "Command  Processing"  module  which  executes  the  routines 
associated  with  "subject",  "title",  or  "author"  commands. 


Fig.  2.4  The  Search  Module 

A "System  State  Table"  (SST)  flag  alerts  SUPER  that  a search- has 
been  set  up,  but  not  yet  executed.  SUPER  then  calls  the  main  search  pro- 
cedure SEARCH,  which  examines  the  three  main  search  structure  pointers 
in  the  Command  List  (C  L).  These  pointers,  if  they  exist,  point  to  the  data 
structures  of  one  or  more  of  the  three  types  of  searches  available  to  the  ■ 
user;  subject,  title,  and  author  (see  Section  2.3). 

The  presence  of  a subject- search-fo rm  causes  SEARCH  to  call  a 
control  routine  named  SSRCH.  Similarly,  a title-search-form  would  prompt 
SEARCH  to  call  another  control  routine  named  TSRCH.  These  two  procedure 
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merely  control  the  mode  of  the  more  important  routine  STRCH  which  actually 
processes  either  a subject  term  (phrase)  or  a title  term. 
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The  presence  of  an  author-search-form  causes  SEARCH  to  Cali 
ASRCH,  a procedure  analogous  in  function  to  STRCH. 

ASRCH  is  considerably  less  complex  than  STRCH  since  the  former 
must  only  process  the  author's  name  while  the  latter  must  process  each 
word  of  a subject  or  title  term. 


The  subject-  (or  title)  search-form  constructed  by  the  command 

processing  module  contains  a pointer  to  a list  of  pointers  called  the  "simple 

search  list".  Each  of  these  in  turn  points'  to  an  "Inverted  File  search  form" 
containing  data  relevant  to  one  word  of  thej  search  term  in  the  user's  request. 
These  search  word  data  structures  are  in  the  same  order  as  the  words  that 
were  typed  by  the  user,  STRCH  employs  a routine  named  REORP  to  re- 
order the  pointers  to  the  words  to  place  a word  with  a short  (preferably  less 
than  one  disk  record)  list  of  references  at  the  top  to  initiate  the  process  de- 
scribed below.  This  usually  reduces  the  number  of  reference  comparisons 
necessary  during  the  ensuing  list  intersections. 

The  reordered  pointers  are  fed,  one  - by- one,  to  the  lookup  procedure 
IFSRCH,  which  is  the  heart  of  the  search  mechanism.  With  the  aid  of  its 
associated  directories,  IFSRCH  selects  the  segment  of  the  Inverted  File 
where  it  is  most  likely  to  find  a list  name  matching  the  search  word  in 


question.  An  exhaustive  list-by-list  search  of  this  area  is  then  made  until 
either  a matching  list  name  is  found  or  it  is  determined  that  no  such  list 
is  in  the  file.  Either  a pointer  to  the  reference  list  of  the  matching  entry 
or  a "search-failed"  code  is  returned  to  STRCH,  If  a search  fails  on  any 
word,  no  further  searching  is  done  on  that  request  since  all  words  of  a 
search  term  must  be  rpatched  for  the  search  to  be  successful. 

The  first  list  pointer  returned  from  a successful  call  to  IFSRCH  be- 
comes the  "current  list " by  being  placed  in  one  of  the  components  of  the 
Command  List,  ERL,  |iCL,)f  If  a one-word  search  is  being  processed,  this 
list  will  remain  the  chrrent  list  and  the  search  is  finished-  If  other  search 
words  are  part  of  the/user's  search  request,  the  list  pointers  returned  by 
the  subsequent  calls /to  IFSRCH  will  be  intersected  with  the  "current  list" 
by  the  ANDER  procedure.  This  routine  produces  an  output  list  containing 
only  those  references  whose  document  and  subject  term  numbers  are  found 
in  the  references  of  both  the  lists  in  iqdestioh.  If  ANDER  produces  a zero 


ERJC  For  a description  of  the  format  of  list  pointers,,  see  Section  2.4, 
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length  output  list  (no  common  document  and  term  number),  the  entire  search 
is  considered  a failure  and  is  terminated.  If  the  output  list  produced  by 
ANDER  is  of  non- zero  length,  it  becomes  the  new  "current  list11  and- the 
process  continues  until  all  search  words  have  been  processed. 

If  an  author-  search  is  requested,  ASRCH  calls  IFSRCH  which  will 
process  the  !!author-search-£ormf In  this  casvc,  IFSRCH  will  access  the 
Authqr  Inverted  Files,  which  are  separate  and  much  smaller  than  the  Subject/ 
Title  Inverted  Files,  If  the  author-search-form  contains  a pointer  to  a set 
of  initials  provided  in  the  user's  search  request,  then  the  procedure  MATAFX 
is  called  by  IFSRCH  (if  a matching  last  name  is  found)  to  check  for  a match 
on  the  authors  initials.  • 

The  results  of  a subject  search,  title  search,  and  author  search  are 
intersected  only  if  these  searches  had  been  part  of  the  same  request,  i*  e.  , 
given  by  the  user  in  a c ouibined  search  c omm a nd * Should  this  intersection 
be  necessary,  ANDER  is  called  after  successful  creation  of  each  of  the 
separate  title  or  author  lists  to  effect  the  combination.  The  resulting  reference 
list  pointer  is  found  at  the  end  of  any  successful  search  in  the  Command  List 
component  RRL.  (CL  ),  The  number  of  different  document  numbers  involved 
in  this  list  will  be  found  in  the  component  DCNT(CL,  ). 


2,1,4  Catalog  Output  (fj, 

The  main  purpose  of  the  output  module  is  to  transmit  three  kinds  of 
disk- stored  data  to  the  user.  These  kinds  of  data  are  document  numbers 
obtained  from  the  lists  in  the  Inverted  Files,  catalog  information  extracted 
from  the  Catalog  Files,  and  fiche  addresses  pulled  out  of  the  Fiche  Directory, 
In  addition,  the  output  module  has  the  function  of  initiating  a request  for  text 
from  the  text  access  subsystem.  . • 

• 3 ' 

As  can  be  seen  in  Fig,  2,5,  the  subroutine  FSO  controls  the  output 
process,  GET  LIS  is  first  called  to  prepare  the  reference  list  for  use.  FSO 
steps  through  the  reference  list  and  displays  the  information  that  the  user 
has  requested, 

FSO  calls  GETINT  to  extract  each  document  record  from  the  Catalog 
Files  and  bring  it  into  memory.  FSO  then  calls  GETFLD  to  extract  each 
requested  catalog  field  from  the  catalog  record.  If  GETFLD  finds  the  field, 
FSO  uses  the  console  l/O  package,  TYFEIT,  to  print  the  following  information:, 
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1.  The  position  number  of  the  document  on  the 
reference  list, 

2,  The  INTREX-assigned  document  number 

3 . The  number  and  name  of  the  requested  field, 

4,  The  contents  of  the  field. 

The  character  set  used  in  the  catalog  is  coded  to  represent  the  special 
symbols  That  are  frequently  encountc red' the  re  ^ Eo  r example,  the  Greek 


Fig,  2.5  The  Outpul  Module 

/ 1 

letter  a is  represented  in  the  INTREX  , catalog  by  the  expression,  ^alpha9®*. 
However,  on  a console  with  an  extended  character  set,  such  as  the  INTREX 

Z -12.. 

console,  special  characters  may  be  represented  directly.  In  this  situation, 

FSO  calls  the  subroutine  S^GTRN  u?ftead  of  TYPEXT.  SFCTRN  translates 
any  as  to  risk- coded  expressions  it  encounters  into  the  appropriate  codes  to 
display  the  symbols. 

In  addition  to  conveying  catalog  information  to  the  user,  FSO  also  re- 
sponds to  requests  for  full  texts  of  documents.  If  a -user  asks  for  field  5 - 
the  location  of  the  document  in  the  fiche  collection  - FSO  calls  TRETRI  for 
this  information.  TRETRI  looks  up  the  address  of  the  document  in  the  fiche 
directory  file  and  tells  the  user  the  fiche  card  number  and  the  frame  positions 
-rffffie  document.  If  the  user  asks  to  view  the  text  immediately  (field  90), 
TRETRI  translates  this  information  into  a special  coded  sequence  which 
activates  the  text  access  subsystem. 

2i  2 Examples  of  Command  Processing  , 

Executing  a user  command  requires  the  interaction  of  many  separate  sub- 
routines; The  charts  in  Figures  2.  6,  2.7,  and  2.  8 illustrate  the  flow  of  control 


O 
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User  commands  Subject  ion  particle 


System  control 

Command  processing  control 

Receive  command  line 

Parse  command  word 

Look  up  command  word 

Search  command  control 

Enter  specifications  into  data  structure 

Parse  specifications  from  command  line 

Look  for  more  commands 


s 

Inverted  File  search  control 

Identify  type  of  search 
Search  control 


Reorder  words  by  list  size 

Measure  length  of  lists 

Search  for  first  specification  word 

Locate  segment  containing  list 

Search  for  second  list 

Locate  segment  containing  list 

Combine  lists 

Handle  I/O  for  list  merge 

Check  for  title  search  request 

Check  for  author  search  request 

Report  how  many  docs  found 
Type  message  to  user 

Go  back  for  new  command 


SUPER 


CLP 


GETLIN 
NEXITM 
LOOKUP 

5UBJ. 


S.T 

NEXITM 
NEXITM 


SEARCH 


SSRCH 

STRCH 


REGRD 

MEADIR 


IFSRCH 
LOGS  EC 


IFSRCH 

LOC3EC 


ANDER 

GETLIS 


TSRCH 
ASRCH 


EVAL 

TYPEIT 


CLP 


F?g*  2.6  Sequence  of  Subroutine  Calls  for  the  Command  11  s son  particle11 
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User  command:  Output  Htl©  flehe 


Coordinate  command  proemsing 

Receive  a line  from  the  console 

Type  the  "READY**  message 

Interrogate  the  console 

Parse  the  command  line 

Find  name  of  subroutine  asked  for 

Interpret  the  "OUTPUT"  command 

Extract  first  argument 

Check  the  argument 

Extract  second  argument 

Check  second  argument 

Report  that  there  are  no  mare  arguments 

Produce  requested  output 

Obtain  list  of  documents 

Extract  the  document 

Location  of  a translation  table 

Read  catalog  directory 

Read  catalog  ^record  file  segment 

Extract  field  24  from  catalog  record 

Print  field  24 

Retrieve  data  on  field  5 

Read  In  fiche  directory 

Print  fiche  location 


r 

CLP 


SUPER 


GETUN 
TYPEIT  | 
RDFLXA 
NEXITM 
LOOKUP 


F“ 

NEXITM 


OUT 


LEGFLD 
NEXITM 
LEGFLD 
NEXITM 


getJis"’ 

GETIN 
gett/b 


FSO 

I 


RDWAIT 
RDWAI 

GETFLD 
TYPEIT 
TRETRI 

rdwaW] 

TYPEIT 


Receive  a new  command 


CLP 


Fiq.  2.7  Sequence  of  Subroutine  Calls  for  the  Command 
“output  title  fiche” 
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\hmr  commmhdz  UST1  AND  UST2/NAMI  LISTS/SAVE  file  myfile/SAVE  LISTS 


CLP 


Accept  command  line 
Pone  command  I ine 
Look  for  iubroytine 

Moke  list  LIST1  active4 
Look  up  address  in  table 
Delete  current  list 


GETLIN 
NEXITM 
LOOKUP 


RESTOR 
r- 


CHKNAM 


Combine  current  list  and  LISJ2 
Extract  "LISTS*1  .from  command  line 
Look  up  address  of  UST2  .1 
Combine  LIST!  and  LIST2 
Initialize  lists 
Add  combined  list  to  table 
Type  results 


Name  current  list 

Extract  11  LISTS"  from  command  line 
See  If  "LISTS*  Is  name  of  command 
See  if  LIST3  already  exists 
Write  LISTS  in  NAMQ0*  FILE 


Create  Save  File 
Identify  argument  "file" 

Convert  file  name  to  BCD  code 
See  if  "myfile1-*  exists  as  file  name 
Write  directory  section  of  myfile 


{“  Save  LISTS  in  file  myfile 
! Find  location  of  LISTS 

* i ' ■ 5 

Copy  LISTS  into  myfile 


DELIST 


AND. 


NEXITM  | 
CHKNAM 


ANDER 

r 


GETLIS 

TABENT 

TYPE  IT 


NAME 


NEXITM) 

LOOKUP 
CHKNAM 

ANDER 


SAVE 


chknam" 

CHKNAM 
CHKSAV 

WRWAIT 


SAVE 

CHKNAM  | 
WRWAIT 
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Fig,  2.8  ' Sequence  of  Subroutine  Calls  for  a Combined  Command 
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among  the  more  important  subroutines  in  response  to  three  different  com- 
mands . 

Figure  2,6  shows  what  happens  when  a user  issues  the  simple  (sub- 
ject) search  command  "subject  ion  particle"  SUPER  calls  C LP,  which 
accepts  the  command.  SUB J.  is  then  called  to  enter  the  search  words  into 
the  data  structure,  SEARCH  then  searches  the  Inverted  Files  for  the  refer- 
ence lists1  associated  with  the  subject  search  terms  uion,f  and  ’’particle”. 
Having  found  the  lists,  SEARCH  calls  ANDER  to  combine  them  into  a single 
reference  list.  EVAL  reports  to  the  user  how  many  documents  were  found. 
Final ly,  SUPER  calls  CLP  once  again  to  wait  for  further  commands  from 
the  user. 

Figure  2,7  shows  the  events  in  processing  the  command  ” output  title 
fiehe” . SUPER  calls  CLP  to  accept  the  command  and  CLP  in  turn  calls 
OUT.,  which  enters  the  field  specifications  into  the  data  structure.  FSO 
transmits  to  the  user  the  requested  data  for  the  documents  on  the  currently 
active  reference  list.  Control  then  returns  to  CLP, 

Figure  2.8  shows  the  events  involved  in  processing  a string  of  four 
commands.  The  user  enters  the  four  commands  as  the  combined  sequence 
LIST  1 AND  LIST 2/ NAME  LISTS/SAVE  FILE  MYFILE/SAVE  LIST 3, 

RE5TOR  is  called  to  restore  list  "LISTl"  AND,  intersects  it  with  LIST2. 
NAME  assigns  a name  ”LIST3”  to  the  combined  list,  SAVE  is  called  to 
create  a file  ,fMYFILEn  for  saved  lists  and  SAVE  is  , called  again  to  trans- 
fer list  u LISTS”  to  this  file.  As  in  the  other  examples,  control  is  re- 
turned to  SUPER,  which  returns  control. to  CLP. 

2,3  Common  Structures  and  Variables  * 

The  approximately  150  Intrex  -written*  routines  share  parameters,  flags 

. / 13 

and  data  structures  through  the  AED  COMMON  facility.  Variables  in  the 
source  program  may  be  declared  to  be  located  in  the  COMMON  area  assigned 
during  compilation  and  thus  become  available  to  all  subroutines  w^hich  have  the 
same  COMMON  declaration. 
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Intrex  uses  only  three  words  of  the  COMMON  area  which  serve  as 
pointers  to  three  essential  parts  of  the  Intrex  data  structure  located  in 
another  part  of  core  (see  Fig.  2.  9).  This  indirect  use  of  COMMON  allows 
expansion  of  the  data  structure  without  change  in  the  size  of  the  COMMON 
area.  The  three  words  contain  the  Command  List  pointer  (CL,),  the  Para- 
meter Option  Table  pointer  (POT.),  and  the  System  State  Table  pointer 
(SSI!.) . The  corresponding  areas  of  storage  are  defined  as  arrays  in  the 
source  file  OVNEW  ALGOL. 

The  largest  of  these  arrays,  the  Parameter  Option  Table  (hereafter 
referred  to  as  the  POT ) is  partially  filled  during  the  second  ini- 
tialization phase  of  Intrex  (see  Section  2,  1,  1)  with  such  data  as  systdm 
file  names,  line  lengths,  buffer  addresses,  and  so  on.  Other  parts  of  the 
POT  are  filled,  as  the  system  is  executed,  with  parameters  obtained  from 
such  sources  as  the  arguments  of  the  command  line  used  to  RESUME  In- 
trex, the  identification  number  of  the  console  being  used,  and  so  on,  A ^ 
complete  list  of  the  POT  parameters  is  given  in  Appendix  A* 

The  second  pointer  in  COMMON  is  the  System  State  Table  pointer 
(SST .) , The  System  State  Table  is  a group  of  Boolean  flags,  each  of  which 
indicates  some  state  or  condition  of  the  Intrex  system*  These  flag  bits  are 
set  to  TRUE  ( 1 ) or  reset  to  FALSE  (0)  during  the  execution  of  Intrex  and 
help  control  the  logical  flow  of  processing  during  user/ system  interactions* 
The  third  area,  the  Command  List,  is  nine  words  long  and  during  ex- 
ecution holds  information  and  pointers  to  information  pertaining  to  the  user's 
search  or  "output  requests*  These  pointers  are  the  beginning  of  a rather  com- 
plex data  structure  consisting  of  arrays  and  other  pointers  at  various  levels 
within  the  data  structure.  This  entire  structure  is  explained  briefly  in 
Section  2.4  and  in  depth  in  Chapter  III  (Sections  3.2.2  and  3.2.3). 

2*4  Data  Base  Structure 

The  Intrex  data  base  consists  of  three  main  sets  of  files.  First  there 
are  the  catalog  record  files  and  a directory  CAT  DIR  to  these  files.  The  cat- 
alog record  files  contain  catalog  information  for  each  document  in  the  data 
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Fig.  2.9  Structure  of  Common  Storage 
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base.  The  directory  is  a list  of  pointers  to  locations  within  the  catalog 
record  files  where  catalog  information  pertaining  to  a given  numbered 
document  can  be  found  (see  Fig.  2.  10).  The  remaining  two  sets  of  files 
are  identical  to  each  other  in  structure  but  one  is  used  only  for  subject 


or  title  searches  while  the  other  is  used  exclusively  for  author  searches. 
Each  set  consists  of  the  Inverted  File  and  two  levels  of  directories  to  the 
Inverted  File  contains  an  alphabetically  ordered  list  of  word  stems  (or 
author  names)  and  a corresponding  list  of  document  numbers  (pointers 
to  CAT  DIR) . The  first  directory  to  the  Inverted  File  ( IF DS  for  Subject/ 
Title  or  IFDAfor  Author  Inverted  File)  contains  pointers  to  segments  in 
the  Inverted  File.  (This  directory  has  been  likened  to  the  guide  words  on 
the  pages  of  a dictionary.)  The  second  Inverted  File  directory  (IFTABS 


or  IFTABA)  has  pointers  to  the  beginning  , of  each  alphabetic  group  in 
the  first  directory  and  thus  serves  as  an  index  to  the  larger  directory. 
(This  index  directory  can  be  likened  to  the  thumb  tabs  in  a dictionary). 
In  order  to  accelerate  the  search  process,  both  directories  are  brought 
into  core  during  system  initialization  and  maintained  there.  The  logical 


relation  of  all  of  these  files  is  depicted  in  Fig.  2.  10.  Documents  are  re- 
trieved by  starting  with  the  index  directory  and  proceeding  to  the  catalog 
records  corresponding  to  the  given  search  term. 

In  addition  to  the  files  just  cited  which  pertain  to  catalog  retrieval, 


there  is  a directory  file  to  the  collection  of  microfiche  which  is  used  for 
full-text  access,  Ail  understanding  of  the  structure  and  format  of  all 
these  files  is  essential  to  a complete  understanding  of  the  Intrex  system. 


Some  jf  the  broader  aspects  of  the.  files  are  discussed  in  the  next  three 
subsections,  A more  detailed  description  is  contained  in  Appendex  B and 
the  reader  is  urged  to  consult  that  part  of  the  report.  j, 

2.  4.  1 Catalog  Files  / 

The  formatted  catalog  records  are  stored  in  a'/et  of  segments.  The 
names  of  the  segments  are  of  the  form  CRnnn  Narn/2  where  nan  is  a three- 

. I ' , 

digit  segment  number,  and  Name2  is  a name  cdmmon  to  all  of  the  segments. 
The  size  of  the  segments  is  determined  by  a length  threshold  value  M which 
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is  pre-stored  in  one  of  the  ten  reserved  words  of  the  catalog  directory. 
Since  formatted  records  are  not  split  between  segments,  the  length  of 
a segment  may  exceed  this  threshold  by  an  amount  less  than  the  length 
of  its  last  record  (see  Fig.  2,-,  11). 


CR  001 
M25100 


CR  002 
M25100 


CATALOG  RECORD 
BOUNDARY 


• • 


SEGMENT 

BOUNDARY 


CR  147 
M25I00 


Fig.  2.11  Catalog  Record  Segments 
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Each  catalog  record  consists  of  a header  and  a body  (see  Fig..  2.  12), 
The  catalog  fields  of  fixed  length  (e , g,  document  number,  on-line  date, 
language)  are  encoded  directly  into  the  header.  The  other  fields  are  con- 
tained in  the  body  in  the  form  of  digram-coded  ASCII  strings  packed  one 
right  after  the  other;  'Pointers  in  the  header  indicate  the  beginning  of  each 
field.  Appendix  B describes  this  format  in  greater  detail. 

The  catalog  record  directory  associated  with  a set  of  catalog  record 
segments  ( i.  e . C RQ 0 1 Name 2 , CR002  Name2,  , * . CRnNameZ)  is  named 
C ATDT.R  where  Name 2 is  a unique,  second  name  common  to  each  file  in  the 

! ■ \ _ _ _ . i 

set  of  segments  and  to  the  directory  file.  The  CATDIR  file  contains  an 

, ’ ■ j 

implicit  ly~keyed  table*  of  catalog  record  locations  (segment  number, 

. ' ’ ■ / 
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record  size,  and  offset  in  segment).  In  addition,  the  first  ten  words  in  the 
directory  are  reserved  for  storing  statistical  information  about  the  catalog 
Thus,  the  pointer  for  document  no.  x is  located  at  directory  position  x+10. 
If  the  catalog  record  for  document  x is  not  yet  in  the  catalog,  its  pointer 
will  be  empty  (binary  zero).  The  exact  format  for  items  in  the  catalog  re- 
cord directory  (pointers  and  statistics)  is  described  in  Appendix  B, 
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fiq.  2.12  Catalog  Record  Format 
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2.4,  2 Inverted  Files 

The  Inverted  Files  consist  of  a series  of  small  disk  files  or  sag-  ' 
ments  which  are  numbered  serially  from  1 to  n as  part  of  the  first 
name  of  each  segment.  Subject/Title  segments  are  named  Slddd  date 
and  Author  segments  are  named  Alddd  date  where  ddd  is  the  segment 
number  and  date  is  a uniform  second  name.  Each  segment  is  further  sub- 
divided into  ten  "sections11.  Each  section  may  contain  one  or  more  lists 
of  documents  or  only  part  of  a list  (the  remainder  being  contained  in  ad- 
jacent sections)*  For  a detailed  diagram  and  description^  see  Appendix  B. 

The  name  of  the  first  list  in  each  section  appears  as  an  entry  in  the 
Inverted  File  directory  (IFDS  for  subject/title  Inverted  File  and  IFDA  for 
author  Inverted  File).  Only  the  first  seven  characters  of  the  name  are 
used  and  these  are  represented  in  a 5-bit  ASCII  code.  This  allows  each 
name  to  be  packed  into  one  computer  word.  The  name  is  related  to  its  file 
section  by  its  position  in  the  directory.  Directory  entries  1,  2,  3,  etc.  will 
contain  the  names  of  the  first  list  in  sections  1,2,  3 f etc,  of  segment  1. 
Directory  entries  1,  1 1,21,  etc,  will  contain  the  names  of  the  first  list  in 
segments  1,  2,  3?  etc.  since  there  are  10  sections  per  segment.  As  a fur- 
ther example,  the  name  in  position  54  of  the  directory  would  be  the  first 
list  in  Section  4,  Segment  6.  If  no  list  starts  in  a given  section,  the  name 
of  the  previous  list  (which  is  being  continued  in  the  given  section)  is  placed 
in  the  corresponding  directory  position.  In  these  cases,  the  sign  bit  of  that 
directory  word  is  a one,  A fence  of  6 octal  7fs  in  the  left  half  of  the  last 
computer  word  terminates  the  Inverted  File  directory. 

As  mentioned  earlier,  an  index  to  the  Inverted  File  directory  exists 
to  allow  more  direct  searching  of  the  IF DS  or  IFDA  (which  exceeds  2000 
computer  words  in  length).  This  index,  IFTABS  for  suF^ct/title  files  and 
IFTABA  for  author  files,  points  to  the  position  within  IFDS  or  IFDA  where 
each  alphabetic  group  begins  (see  Fig . 2.13).  That  address  is  found  in  the 
IFTABS  or  IFTABA  position  which  corresponds  to  the  six^bit  ASCII  code 
of  the  letter. 


*The  standard  ASCII  code  requires  seven  bits.  The  six-bit  code  is  formed 
by  ignoring  the  highest  order  bit; 
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i ndexc 


IFTABS 


Index 


O 

ERIC 


21 

22 

23 


41 

42 


72 


m/M/mai 

(special  character 
pointers) 

i 

1 

" 1"  pointer  (34  ) 

"2"  pointer 

,l3H  pointer 

i 

\ • • • i 

i 

11  a'1  pointer  (87) 

" b"  pointer  ( 207) 

11  c1'  pointer  ( 262  ) 

I * • • i 

i i 

i ' 

"z"  pointer  (1912) 

10 

I 


34 

35 


IFDS 

u a n o rr 

\ a 1 

* a 1 p 

h a 

! 

1 

1 

! 

1 

1 

1 

1,08 

1 0 0 * 

deg 

I 


87 


\ 

\ 

\ 

\ \ 

\ \ 

\ w 

\ 

\ 

\ 

\ 

\ 


207 

208 


262 


A * s u b 

3 

a ha  c u 

s 

1 • * * 

I 

B / A,. 

b a c k g 

r o 

1 • » • 

1 

l 

1 / 

1 

C * s u b 

2' 

c a r _jd  o 

n 
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For  exampla?  if  the  first  name  starting  with  the  letter  MbfT  is  in  position 
number  102  of  the  IFD5  or  IF  DA  directory,  then  the  number  102  will 
appear  in  position  34  = 42g  (the  six-bit  ASCII  code  for  b)  of  IFTABS  or 
IF.TABA, 

The  thirty-two  words  preceding  the  first  alphabetic  entry  in  the 
index  directories  are  used  to  point  to  names  in  the  Inverted  File  Direc- 
tory  beginning  with  numerals  or  other  non  - alphabetic  characters* 

2 ,4,  3 Reference  List  Pointers 

A list  of  reference  words  may  be  obtained,  either  through  a search 
of  the  Inverted  File  data  base  or  through  use  of  the  DOCUMENT  command. 
Once  obtained  the  list  may  be  altered  by  other  operations,  such  as  RE- 
STRICT, AND,  OR,  and  NOT.  Lists  may  also  be  saved  temporarily  (dura- 
■ tion  of  '"current  Xntrex  session)  by  the  NAME  command,  (or  saved  more  per- 
manently ton  the  disk)  via  the  SAVE  command*  Lists  may  be  completely 
stored  in  core  (if  they  are  small  enough);  they  may  be  written  into  a "Dump 
A File**  if  they  result  from  a Boolean  operation  or  an  attribute  screen;  or 
they  may  be  deposited  into  a "Name  File"  if  assigned  a name  by  the  user 

via  the  NAME  command.  Because  of  this  variety  of  list  types  and  condi  = 

! ■ • 

tions,  an  elaborate  three-part  pointer  was  designed  (called  an  "augmented 

| pointer ")  to  hold  all  the  vital  data  about  the  list  to  which  it  is  related.  These 
pointers  are  retained  in  an  in-core  table  after  being  constructed  by  the  op- 
erating program  segment. 

Procedures  which  refer  to  reference  lists  use  single-word  pointers 
to  one  of  theie  word  augmented  pointers  * The  most  important  of  these  is 
the  pointer  currently  in  the  Resultant  Reference  Lis ^ component  of  the 
Command  List,  RRL.fCL.),  which  points  to  the  augmented  pointer  of  the 

currently  active  list. 

The  format  of  the  augmented  pointers  is  shown  and  discussed  in 
Appendix  B. 


2*  4,  4 Fiche  Direct 


0 

ERIC 

1 


Fiche  Direct  gives  the  locations  within  the  text  access  subsystem,  of 
the  full  texts  of  documents  in  the  data  base.  The  directory  is  ordered  by  docu- 

1 i . . : 

ment  number:  word  n of  the  directory  gives  the  location  of  document  n.  Each 

/ ' 

i 


-35- 


word  contains  four  fields  : fiche  number,  first  f rame  position,  last  frame 

position  and  document  number.  If  the  full  text  of  a document  is  not  on 
microfiche,  the  fiche  number  field  is  zero  and  the  first  frame  position 
has  a special  code  (see  Appendix  B for  a more  detailed  description). 


2.5  Overlay  System 


An  overlay  system  has  been  implemented  so  that  the  INTREX  sys- 
tem will  not  be;  restricted 'by  the  size  of  core  memory.  The  system  uses 
a pre-assignect  area  of  core,  into  which  one  of  four  segments  of  subroutines 
and  data  can  be  read  as  needed-  The  segments  exist  as  separate  disk  files 
in  loaded  and  initialized  form:  address  adjustment  has  been  performed  and 

initialization  procedures , such  ’as  IN  IA IJT , have  been  executed. 

Core  is  partitioned  into  three  major  areas:  the  resident  area,  the 
segment  area,  and  the  free  storage  area  (see  Fig.  2,  14).  The  resident  area 
contains  the  control  subroutine,  SUPER,  utility  subroutines  such  as  FREE 
and  TYPEIT,  and  the  overlay  generation  and  linkage  mechanisms,  SYSGEN 
and  CALLIT.  These  programs  remain  in  c ore  at  all  times  f The  segment 
area  contains  one  of  the  four  segments,  each  of  which  consists  of  a group 
of  closely  related  procedures,  together  with  the  overlay  generation  and  link-; 
age  mechanisms  LINKUP,  SENTRY,  and  SEGINT.  The  free  storage  area /is 
available  for  use  by  subroutines  in  both  the  main  body  and  the  segments. 

Two  tables  are  central  to  the  overlay  mechanism.  One  table,  which 
exists  both  as  a part  of  S^ifSGEN  and  as  the  disk  file,  sysnam^TBLE, 
specifies  how  many  segments  there  are  in  the  sjystem  and  in  what  segment 
or  segments  a particular  procedure  may  be  found.  The  other  has  four  ver- 
sions, one  associated  with  the  subroutine  SENTRY  in  each  of  the  four  over- 
lays, This  table  lists  the  entry  points  into  the  segment  with  which  it  is  asso- 
ciated. . . ' 

SYSGEN,  LINKUP,  SENTRY  and  SEGINT  are  used  in  generating  the 

overlay  system.  (See  also  Section  2.  1).  SYSGEN  re^ds  sysnam  , TBLE., 


*More  precisely  these  programs  remain  in  the  core  image  of  an  Intrex  user 
oh  GTSS,  CTSS  swaps  core  images  in  and  out  of  physical  core  in  the  pro- 
cess of  time-sharing.  , \ , , ■- 


Dl 
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^ Free  Storage  Area 


< 


> Segment  Area 

\ 


> Resident  Area 


* 


V:- 

Fig.  2.14  Partitioning  of  Jntrex  Core  Memory 
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......  X 

and  fills  it  in  with  information  that  it  finds  in  the  table  contained  in  SENTRY. 

■ * 

SYSGEN  calls  SEGINT,  which  in  turn  calls  initialization  procedures  for 
subroutines  within  the  segment.  SYSGEN  then  writes;; out  sysnam.  TBLE. 
and  the  segment  as  a file  sysnam  SGMTnn,'  where  imp  the  number  of  the 
segment  and  sysnam  is  the  name  given  to  this  version  of -In  t rex  (see  Fig. 
2,15).  LINKUP  merely  provides  linkage  between  SYSGEN  and  SENTRY. 


CALLIT,  LINKUP,  and  SENTRY  are  used  during  execution.  : A 
procedure  in  the  core— resident  area  transfers  to  a procedure,  PROC,  in 
a segment  by  making  a call  of  the  form  X - CALLIT  (,  bcd/PROC/,  argl, 
argZ),  where  argl,  arg2  are  arguments  of  PROC  and  X is  its  value. 
CALLIT  looks  up  PRQC  in  the  in  pore  copy  of  sysnam.  TELE,;,  and  reads 
in  the  needed  segment,  if  it  is  not  already  in  core.  It  then  transfers  to 

LINKUP,  which  transfers  to  SENTRY J SENTRY  looks  up  PROC  in  its  own 

i 

table  ahd  transfers  directly  to  it  passing  on  argl  and  arg2. 


O 

ERIC 
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III.  SOFTWARE  DETAILS 


The  objective  of  this  chapter  is  to  provide  the  reader  with  an  under- 
standing of  the  purpose  and  the  operation  of  each  subroutine  or  procedure 
of  the  Intrex  retrieval  programs.  Included  in  this  chapter  is  a statement  of 
the  fundamental  strategies  and  goals  of  each  system  component.  Also  in- 
cluded is  the  detailed  information  that  allows  a reader  to  follow  the  program 
listings  and  understand  the  exact  operation  of  each  procedure  of  the  Intrex  re- 
trieval programs. 


The  description  of  each  routine  o_  program  has  been  broken  down  into 
eleven  parts.  Fart  A "Operation"  gives  a step-by-step  account  of  the  logical 
flow,  explaining  alternative  branches  as  they  occur*  This  part  could  be  used 
in  conjunction  with  the  program  listings  by  a reader  who  requires  an  in-depth 
understanding  of  the  programs.  The  other  parts,  B through  K,  provide  various 
other  types  of,  information  pertinent  to  the  subroutine.  For  example.  Part  K 
lists  all  files  which  could  be  created,  deleted,  or  used  by  the  routine  , in  ques  - 

- - \ a \ 

tion.  Part  J cites  the  file  name  where  the  program  can  be  found. 


Some  of  the  conventions  employed  in  this  chapter  may  need  a few  words 
of  explanation. 


In  general  the  following  conventions  are  observed  with  regard  to  names, 

1,  Names  of  precadures,  components  and  specific  files  are  ex- 

s pressed  in  all  capital  letters  (e.  g,  SUPER, RRL,  (CL,), 

SAVED  DIRECT), 

2,  Optional  (may  or  may  not  be  used)  arguments  are  represented 
in  lower  case  characters  with  a hyphen  on  both  sides  of  the  word. 

(e.g,  -mode*- , -wordno-  ). 

/k  — ^ 

3,  Variable  file  names  or  portions  thereof  which  must  be  present  are 
represented  in  lower  case  without  hyphens,  (e,  g,  file  , SInnn,  date). 


The  abbreviations  chosen  to  represent  the  arguments  of  the  procedure 
call  in  Part  E and  at  the  beginning  of  Part  A are  intended  to  be  indicative  of 
the  role  they  play  in  the  call  but  are  not  always  the  same  as  those  used  in  the 


program  listings. 


All  messages  which  can  possibly  originate  from  the  procedure  are 


listed  in  Part  H and  numbered. 


O 


Parenthesized  numbers  in  Part  A (Operation) 
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I 


appearing  after  references  to  messages  produced  by  the  procedure'  refer  to 
the  position  of  the  message  in  this  list.  Each  message  is  enclosed  in  quota- 
tion marks  in  the  list,  although  not  in  actuality,  and  followed  by  the  label{s) 
or  routine (s)  which  is  (are) used  to  generate  the  text.  Variable  parts  of  the 
messages  are  represented  by  symbolic  tags  and  either  underlined  or  foot- 
noted to  indicate  their  meaning. 

We  have  attempted,  especially  in  Part  A,  to  provide  an,extensive 
amount  of  cross-referencing  to  other  procedures  which  relate  to  the  one 
being  described.  Should  additional  cross -referencing  be  required,  the  reader 
may  refer  to  the  alphabetic  index  of  procedures  to  find  the  location  of  the  sec-. 
t:ion  describing  the  needed  procedure.  • 

In  order  to  aid  the  reader  in  finding  particular  subroutine  descrip- 
tions, each  such  description  (subsection)  begins  on  a new  page.  The  sub- 
section number  is  printed  at  the  top  of  each  page  to  facilitate  locating  the 
subsection,  s 


n 

i 

i 

i 
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3,  1 System  Control  Logic 


1.  1 


Supervision 


3.  1.1,1  SUPER 


Purpose 

To  supervise  Intrex  logic  flow 
Description 

SUPER  is  the  original  entry  point  into  the  retrieval  system.  It  is 
also  the  routine  to  which  control  returns  after  the  basic  modules  of  the 
system  have  performed  their  tasks. 

A.  Operation*  SUPER(  ) ' ' 

1,  SUPER  calls  routines  to  initialize  the  INTREX  System, 

a.  SYSGEN  is  the  first  routine  -cklled,  After  it  does  its  work 
it  culls -DORMNT,  \ 

When  the  system  is  resumed,  ;S  YSGEN  returns  control  to 
SUPER,  which  calls  the  initialization  routines  INIFIX  and 
IN IV A R,  artd  then  calls  DORMNT. 


r 


b„ 


When  the  system  is  resumed  once  again, 
DYNAMO. 


SUPER  calls 


2, 


3, 


SUPER  asks  that  the  user  type  begin' and  then  calls  SYSQEN 
which  introduces  the  user  to  the  system. 


4, 


Depending  on  the  settings  of  bits  in  the  System  State  Table  (SST.), 
SUPER  will  call  the  following  routines; 

a,  CLP  is  called  to  accept  a command  line  from  the  user. 

b.  SEARCH  is  called  to  carry  out  a search  of  the  Monitor  File 

c.  EVAL  is  called  to  summarize  the  results  of  a search. 

d,  FSO  is  called  to  print  catalog  information. 

SUPER  makes  calls  to  the  free  storage 'monitor  FSIZE  and  the  ^ 
timing  monitor  MONTIM.  The  values  rjeported  by  these  routines 
are  written  in  the  Monitor  File  by  meahs  of  ASIDE. 


Procedures  Calling  SUPER:  , » . 

SUPER  is  the  original  entry  point  of  the  retrieval  system. 
Procedures  Called  by  SUPER; 


ASIDE 

CLP 

DORMNT 

DYNAMO 

EVAL 


ESC 

INIFIX 

INIVAR 

MONTIM 

SEARCH 


SIGNIN 

SYSGEN 

TYPEIT 


56 


y 


o 
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3 o 

1.1.1 

COMMON  References: 

- 

Name 

Meaning 

Interrogated? 

Chang 

STM(POT) 

System  time  monitor 

X 

FSONX(SSTo) 

FSO  not  executed  a 

X 

X 

GCE(SST„) 

Go  command  exists 

X 

X 

ISI(S8T„) 

In  sign-in 

X 

RIILE(SST0) 

Resultant  reference  list 

exists  x 

SNX(SST.) 

Search  not  executed 

X 

X 

IBEG  (SST.) 

In  begin  state 

X 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 


H,  Messages:  " , 

1-  11  Please  type  the  word  begin/followed  by  a carriage  return/’ 

(/begmes/) 

2,  l!You  may  make  a new  search  by  dropping  some  of  your  search 

words  or  by  chos  ing/othe r search  words , or  you  may  make 
some  other  request  of  INTREX  (see  FartJL.)n  (/ op  10.  5/) 

3,  "You  have  no  current  active  list  for  which  to  provide  output. 

You  must  perform  a new  search  or  restore  a saved  (named)  list, 
(/super/)  ! ' 

I.  Length:  ./ 

440o  or  288.  A words 
o I U 

J.  Source:  ;/ 

SUPER  ALGOL  ' • 

K,  Files  Referenced* 

None  , * . 

\ ■ * * 

.?  G ... 

/ , . ; 
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3.1.2  Fixed -Parameter  and  Data  Base  Initialization 

3.  1.2.1  SEGINT 

Purpos e 


To  initialize  an  overlay  segment 

’V'^' 

Description 

A.  Operation: 

A different  version  of  SEGINT  is  contained  in  each  segment. 
SEGINT  calls  individual  initialization  routines'  for  procedures  in  a par- 
ticular overlay  segment.  SYSGEN  calls  SEGINT  before  writing  out  the 
segment. 

B.  Procedures  calling  SEGINT: 

SYSGEN 


JD. 


Procedures  called  by  SEGINT: 

IN  IF  ED,  INIVRB,  INIRNG,  INIAUT,  IN  MON  2 

COMMON  References:  7~ 

None 


E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

10-20  words 

J.  Source: 

nSENT  ALGOL  (where  n is  1,2,3,  or  4) 

K.  Files  Referenced: 

„ None 


\ 

A 


d8 
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3.  1.2.2 


3.  1.2,2  INITDB 
Purpos e 

To  initialize  COlvllvlON  parameters 
Description 

A.  Operation  INITDB(  ) 

INITDB  is  called  by  SYSGEN  during  fixed-parameter  initialization. 
INITDB  contains,  as  arrays,  the  areas  used  for  the  command  list  (CL), 
the  parameter  option  table  (POT.)  and  the  system  state  table  pointer  (SST.) 
with  the  addresses  of  these  areas.  These  .three  words  are  in  COMMON 
storage. 

INITDB  sets  certain  POT  parameters,  such  as  the  length  of  out-  ... 
put  lines,  and  sets  up  free  storage  arrays  for  the  output  request  list 
(Section  3. 2. 7. 2)  and  field  search  list  (Section  3 . 2.7 . 3) . The  addresses 
of  these  arrays  are  stored  in  the  appropriate  component  of  the  command 


■ list 

array. 

. ■ 

B. 

Procedures  Galling 

INITDB: 

‘-f 

r 

SYSGEN 

} 

C . 

Procedures  Called  by  INITDB: 

FREZ 

> 

* 

D. 

COMMON  Referenc 
Name 

es : 

Meaning 

Interrogated? 

Changed? 

ORL.  (CL.  ) 

FSL.  (CL.) 

STM.  (POT.) 
RTM.  (POT.) 
MAXC  HR(  POT  .) 
MAXLlN(POT.) 
VERBOS(POT.) 
RAM(  POT .) 
DFSN 1 (POT .) 
DFLNl(POT.) 
MAXC  IN(  POT.) 

Output  Req’  ,jt  List 

Field  Search  List 

System  Time  Monitor 

Ready  Time  Monitor 

Max.  chars.  peiA  output  line 

Max.  lines  per  command 

Typeit  message  mode  . 

Residual  author  mode 

Short  messg.  file  name  1 

Long  messg.  fiLe  name  1 

Max.  chars,  per  input  line 

X 

X 

. ■ w 

X 

X 

X 

X 

X 

X 

X 

X 

E. 

Arguments : 

None 

/ 

' F. 

Values: 

None 

ERIC 
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r»  * 1 n rj 

3 . 1 . ^ 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

54g  or  441q  words 

J.  Source: 

OVNEW  ALGOL 

K.  Files  Referenced: 

None 


' / 
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3.  1 . 2. 3 


3.  1.2, 3 IN  IF  IX 

Purpose 

To  initialize  fixed  parameters 
Peso  ription 

INIFIX,  like  SYSGEN,  is  called  by  SUPER  to  carry  out  the  fixed 
parameter  phase  of  the  initialization  of  the  retrieval  system.  INIFIX 
generates  relatively  stable  parameters  for  the  system,  such  as  char- 
acter strings, and  table  entries. 

A.  Operation 

INIFIX  calls  for  a large  block  of  free  sto-age  and  divides  it 

among  common  buffers  1 through  6 in  432  word  blocks . Common  buffer 

0 is  assigned  to  the  top  of  core.  INIT2  is  called  next.  INIT2  calls  the 

following  initialization  routines: 

INIEVL,  which  initializes  EVAL  (Section  3.2.6.  1), 

INIOUT,  which  initializes  INOUT  (Section  .2.7.1), 

INIS.  T,  which  initializes  S.T  (Section  2.2.  ). 

INIFIX  then  calls:  ' 

PREP,  which  reads  in  COMMAND  TABL1  (Section  3.  1 . 2.  5), 

I TABLE,  which  reads  in  FIELDS  TABLE  Section  3.1.2.  6 , 

MONINT,  which  initializes  MONTIM  (Section  3.  I.  5.  ), 

INICON,  which  initializes  CLP  (Section  3.2.  1.  1). 

In  the  course  of  calling  these  routines,  INIFIX  prints  out  the  mem- 
ory bound  five  times',  as  a way  of  monitoring  the  utilization  of  free  storage. 
INIFIX  calls  FRALG  to  give  its  coding  space  over  to  free  storage  before  re 

turning  to  SUPER. 

Procedures  CalJjj^lC INIFIX: 

SUPER 

Procedures  Called  \by  INIFIX: 

FRET,  INICON/*  INIT2,  MONINT,  PREP,  SIZE, 

TABLE,  TYPEIT 

0 


O 
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D. 


COMMON  References: 


Name 


Meaning 


Interrogated?  Changed? 


COMBFO(POT .) 
COMBF  l(POT .) 
COMBF2(POT .) 
COMBF3(POT . ) 
COMBF  4(POT .) 
COMBF5(POT.) 
COMBF6(POT.  ) 
GOMTB.(POT.) 


Common  buffer  0 
Common  buffer  1 
Common  buffer  2 
Common  buffer  3 
Common  buffer  4 
Common  buffer  5 
Common  buffer  6 
Command  Table 


x 

X 

X 

X 

X 

X 

X 

X 


E.  Arguments* 
None 


H. 


Values : 

None 

Error  Codes: 

None 

Messages: 

1.  "Top  of  Intrex  is 

2.  "After  In^t2  X" 

3.  "After  Prep  X" 

4.  "After  Table  X" 

5.  "After  Inifix  X" 


(LOCMES) 

(LOCMES) 

(LOCMES) 

(LOCMES) 

(LOCMES) 


Length: 

153 


_ or  107  10  words 


J. 


Source: 

INITLY 


ALGOL 


K. 


Files  Referenced:  . 
None 

Ni 
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3.  1.2.4 


3.  1.2.4  INIT2 
Purpos  e 

To  call  initializing  procedures 

_ . ( 

Description 

Operation  INIT2(  ) 

"IN IT 2 is  called  by  INIFDC.  1N1T2  is  used  as  a convenient  place 

to  put  calls  to  initialization  routines  of  procedures  which  are  in  the  core- 

resident  section  of  the  system.  INIT2  currently  calls: 

INIEVL,  which  initializes  EVAL  (Section  3 . 2 . 6 . 1 ) , 

INIOUT,  which  initializes  INOUT  (Section  3 . 2 . 7 . 1 ) , 

INIS.  T , which  initializes  S.  T.  (Section  3 . 2 . 2 . 1 ) . 

B.  Procedures  Calling  INIT2: 

IN  IF  IX 

C.  Procedures  Called  by  INIT2: 

INIEVL,  INIOUT,  INIS . T 


D. 

\ 

COMMON  References 
None 

E. 

Arguments : 
None 

F. 

V alues : 
None 

G. 

Error  Codes: 

None 

H. 

Messages: 

None 

I. 

Length: 

6 words 

J. 

Source: 

OVNEW  ALGOL 

K. 

- Files  Referenced: 
None 
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3.  1.2.  3 PREP 

Purpose 

To  construct  command  table 
Desc  ription 

PREP  constructs  the  INTREX  command  table.  This  table  asso- 
ciates the  INTREX  commands  with  their  interpretive  subroutines.  -h  . 
table  consists  of  two  word  entries:  the  first  word  contains  the  first  four 

letters  of  an  INTREX  command  in  ASCII  and  the  second  word  contains  the 
associated  subroutine  name,  written  in  6 -bit  BCD.  LOOKUP  uses 
VSRCH  to  find  the  second  element  of  an  entry  by  searching  -.he  table  for 

a match  on  the  first  element. 

A.  Operation:  Ptr  * PREP(  ) 

PREP  reads  theline-mark  file  COMMAND  TABLE  into  core  mem: 

ory.  An  area  equal  to  2/3  the  length  of  this  file  is  allocated  for  the  table 
that  PREP  is  to  construct.  Each  line,  of  the  file  contains  the  first  four 
letters  of  a command,  followed  by  a tab,  followed  by  a procedure  name. 
Using  the  tab  as  a delimiter,  PREP  extracts  the  four  letter  string,  con- 
verts it  to  ASCII  and  stores  it  in  word  n of  the  table.  The  6-bit  proce 
dure  name  is  stored  in  word  n + 1.  When  the  table  has  been  filled,  PREP 
returns  a pointer  to  the  tabie,  where  the  decrement  contains  the  number  ^ 
of  2-word  elements,  rather  than  the  number  of  words. 

B.  Procedures  Calling  PREP: 

IN  IF  IX  (via  CALLIT) 

C.  Procedures  Called  by  PREP. 


ASCITC 

BFCEOS 

BFOPEN 

bfread 


dormnx 
filcnt 
FRA  LG 

FREE 


FRET 
GET  6 
LOCMES 
PUT6 


TYPEIT 


D. 


COMMON  References: 

Name  Meaning 

COMTB(POT.)  Command  table  Ptr. 


Inte  rrogated?  Changed? 

x 


E. 


Arguments 

None 


'( 


0 

ERIC 
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3. 1. 2. 5 


F.  Values: 

ptr  = Bits  3-18:  number  of  2-word  elements 

Bits  2i-35;  location  of  table 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "File  error  in  PREP"  (LOCMES) 

2.  "PREP  command  over  4 characters  . . .Fatal  error."  (LOCMES) 

I.  Length: 

400o  or  256^q  words 

J.  Source: 

PREP  ALGOL 

K.  Files  Referenced: 

COMMAND  TABLE  .X 
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3.1.2 .6  TABLE 


Purpose 

To  generate  field  name  and  range  name  tables 


Desc  ription 


TABLE  is  used  to  create  four  tables: 

(1)  A table  of  point~-s  to  the  ASCII  names  of  all  the  catalog 

fields.  Each  word  of  the  table  corresponds  to  a field  num- 
ber. If  there  is  no  field  n,  the  nth  word  of  the  table  is 
zero.  This  table  is  used  in  two  ways:  to  determine  if  a 

field  specified  by  a user  is  a legitimate  field,  and  to  as  so 
date  the  field  number  of  a field  with  the  name  of  the  field 


(2) 


A table  of  pointers  to  the  ASCII  names  of  the  RAh^JE  attr*. 
bute.  This  table  is  completely  analogous  to  the  field  names 

table . 


(3)  A simple  list  of  all  the  field  numbers,  one  number  per  word. 
This  list  is  used  by  FSO  when  the  user  requests  output  all  . 


(4) 


A simple  list  of  the  field  numbers  of  the 
is  used  by  FSO  when  the  user  requests 


standard  fields.  This 
"o"  or  "o  standard". 


A.  Operation:  TABLE(  ) ^ 

TABLE  creates  these  four  tables  by  using  the  data  it  finds  in  the 
file  FIELDS  TABLE.  This  is  an  ASCII  file  and  has  on  each  line  the 
catalog  field  number  followed  by  a tab  and  the  field  name.  A 
plus!  ( + ) sign  following  a field  juame  signifies  that  this  field  is  to  be  used  in 
the  standard  field  list?  ^ErRANGE  attributes  follow  the  catalog  fields  and 


have  the  same  format. 

IN  IF  IX  calls  TABLE  via  CALLIT.  TABLE  allocates  a 91-word 
array  for  the  the  field  names  table  and  a 5-word  array  for  the  range  attri- 
butes. TABLE  reads  FIELDS  TABLE  into  memory,  counts  the  total  num- 
ber of  fields  and  the  subset  of  standard  fields  and  allocates  memory  for  the 
complete  fields  list  and  the  standard  fields  list.  TABLE  proceeds  to  copy 
the  ASCII  field  names  into  free  storage,  inserting  a pointer  in  the  field 
names  table  and  adding  the  binary  equivalent  of  the  field  number  to  the 
field  list.  After  TABLE  has  gone  through  the  same  procedure  for  the  range 
names,  TABLE  calls  RPRIME.  RPRIME  is  an  initialization  procedure  for 
the  subroutines  RNGNAM,  LEGFLD,  FLDNAM,  FIELDS  and  STANDL. 
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3.  1. 2. 6 


Thes  e 
tables. 


subroutines  supply 
information  which 


system  routines  with  information  about  the 
they  receive  from  TABLE  via  n r' rd. ivl E . 


B. 


C. 


D. 


Procedures  Calling  TABLE: 
IN  IF  DC 


Procedures  Called  by  TABLE: 


ASCINT 

BFCLOS 

bfopen 

bfread 

COPY 

dormnt 


FILCNT 

FRALG 

FREE 

FREZ 

INC 

INC  1 


LOCMES 

NEXITM 

PUT 

RPRIMS 

TYPEIT 


COMMON  References: 

Name  Meaning 

COMBFl(POT.)  Common  buffer  1 

COMBF2(  POT  .)  Common  buffer  2 


Interrogated? 

X 

X. 


Changed? 


E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 


H.  Messages: 

I "Error  in  TABLE"  (preset) 


I.  Length: 

1006g  or  5181q  words 

J.  Source: 

TABLE 1 ALGOL 

K.  Files  Referenced: 

FIELDS  TABLE 


O 

ERIC 
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3.  1.  2.  7 

3 . 1 .2.7  RPRIME 


Purpose 

To  initialize  ppihters  to  tables 


Description 
A.  Operation: 


RANGE  (Range,  Range.  1,  Name,  All.  field.  All.  len, 
Stand,  Stand,  len) 


RPRIME  initializes  RNGNAM,  LEGFLD,  FLDNAM,  FIELDS, 

and  STANDL  by  transferring  parameters  to  these  routines  from  TABLE 

/ i *- 

B.  - Procedures  Calling  RPRIME: 

TABLE 

<3.  Procedures  Called  by  RPRIME: 


None 


D.  COM!1  nces: 


location  of  array  of  pointers  to  RANGE  names, 
length  of  RANGE  array. 

location  of  array  of  pointers  to  names 
of  catalog  fields. 

location  of  list  of  all  of  the  fields, 
length  of  list  of  fields  . 
location  of  list  of  standard  fields, 
length  of  standard  field  list 

, \ . 


H.  Messages: 

None 

I.  Length: 

30g  or  241q  words 

y 

J.  Source: 

TABLE2  ALGOL 

K. .,  Files  Referenced:^ 

None  \ 


O 


Arguments: 

RANGE: 
RANGE.  L: 
NAME: 

ALL.  FIELD: 
ALL.  LEN: 
STAND: 
STAND.  LEN: 


G. 


V a lues : 


Error 
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3. 1.2.8 


3 . 1 . 2 . 8 RNGNAM 

I 

Purpos e j 

To  return,  pointer  to  range  names  pointers 

1 

Description 

A.  Operation:  Ptr  = RNGNAM(  ) 

RNGNAM  returns  a pointer  to  a list  of  the  pointers  to  the  ASCII 
names  of  the  RANGE  attributes.  The  document  of  the  pointer  contains 

/ %s' 

the  length  of  the  list  in  words.  > 

B.  Procedures  Calling  RNGNAM!: 

RANGE,  EVA  L 

C.  Procedures  called  by 

None  \ 

\ ■ v . 

D.  ^COMMON  References: 

None 


E.  Arguments : 

None  / 

P.  Values:  f 

Ptr  ~ word  pointer  to  list  of  ASGXX  pointers 


G.  Error  Codes: 

i 

None 

H.  Messages^ 

None 

I.  Length: 

6 words 

J.  Source: 

TABLE?  ALGOL 

Piles  Referenced: 
-None 
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3.1.2.  9 LEGFLD 
Purpos e 

To  check  for  legal  field  number 

De  s c riptio'n  f 

A.  Operation:  Boolean  = LEGFLD(Fldno) 

LEGFLD  uses  the  field  number  "field"  to  index  the  array  of 
pointers  to  the  names  of  catalog  fields.  If  "field"  is  greater  than  zero 
and  less  than  91  and  the  word  indexed  by  "field"  contains  a pointer, 
LEGFLD  returns  a value  of  true.  'j 

B.  Procedures  Calling  LEGFLD: 

IN.,  OUT. 

C.  Procedures  Called  by  LEGFLD: 

None 

D.  COMMON  References: 


None 

E. 

Arguments : 

Fldno:  field  number  (bina 

F. 

Values: 

• 

Boolean  = 

true  or,  false 

G. 

Error  Codes: 

None 

/ 

H. 

Messages: 

None 

I. 

Length: 

1°8  or  810 

words 

J. 

Source: 

\ 

V 

TABLE2 

ALGOL 

K. 

Files  Referenced: 

tjone 


O 

ERIC 
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3.1.6.10 


3.1.2,10  FLDNA'M 
Purpose 

To  return  pointer  to  field  names  pointers 
Desc  ription 

A.  * Operation;  Ptr  — FLDNAM  ( ) ( 

FI^DNAM  returns  a word  pointer  to  an  array  of  pointers  to  the 
ASCII  names  of  all  of  the  fields.  The  pointer  to  the  field  name  of  field  n 
is  in  word  n of  the  ^rray.  If  there  is  no  field  n,  word  n is  zero. 

B.  Procedures  Calling  FLDNAM: 

EVAL,  FSO 

C . Procedures^Called  by  FLDNAM: 

None 

D.  COMMON  References:  . 

None 

E.  Arguments: 

None  - . 

- ; 

F.  Values: 

Ptr  5=  word  pointer  to  array  of  pointer^ 

G.  Error  Codes:  \ 

None'  • f 

H.  Messages: 

None 


I.  Length: 

6 words 

J.  Source: 

TABLE2  ALGOL 

K.  Files  Referenced: 

None 


H ' 

ERJC 

mi  — 

/ 
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3.1.2.11  STANDL 
Purpos e 

To  return  pointer  to  list  of  field  numbers 


Description 

A.  Operation  Ptr  * STANCH  ) 

STANDL  returns  a word  pointer  to  the  list  of  standard  fields. 

This  list  is  ^4  worlds  long  and  contains  the  numbers  24,  21,  23,  and  47 


B,  Procedures  Calling  STANDL 
FSO 

q Procedures  Called  by  STAJJDL 
None 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

f 

F.  Values:  w 

Ptr  = word  pointer  to  array  containing  standard  fields 

G.  Error  Codas:  \ " 

None 

/ 

H.  Messages: 

\ 

None 

\ 

I.  Length:  '' 

10g  or  810  words 

J.  Source: 

TABLE2  ALGOL 


K.  Files  Referenced: 
None 
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3. 1.2.  12 


3.1.3.12  FIELDS 
Purpose 

To  return  a pointer  to  a list  of  field  numbers 


De  s c ription 

A.  Operation:  Ptr  = FIELDS(  ) 

PXELDS  returns  a pointer  to  a 50-word  array  containing  all  of 
the  field  numbers.  The  length  of  the  array  is  in  the  decrement  of  the 
pointer.  Each  word  of  the  array  contains  one  field  number  in  binary. 


B.  Procedures  Calling  FIELDS: 

FSO 

C.  Procedures  Called  by  F LDS: 

None 

D.  COMMON  References: 

None  1 

E.  Arguments: 

None 

F.  Values: 

Ptr  = word  pointer 

G.  Error  Gocies: 

' None 


H.  Messages: 
None 


I.  Length: 

1 2g  or  10 10  words 

J.  Source: 

TABLE2  ALGOL 


K. 


Files 


Referenced: 


O 

ERIC 


i 


None 
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^ 1.2.13  INIVAR 
Purpose 

To  link  the  retrieval  system  to  a particular  data  base 


Des  c ription 

A.  (Operation:  INIVAR(  ) 

SUPER  calls  INIVAR  after  INIFIX  returns  control  to  it.  SUPER 

also  calls  INIVAR  if  DYNAMO  indicates  to  SUPER  that  the  user  has  typed 

'RENEW'  in  his  command  line. 


INIVAR  asks  the  user  to  type  the  last 
and  the  inverted  files  **.  These  names  are 


names  of  the  catalog  files 
stored  in  CATS2(POT.)  and  IFSZ(POT.)  respectively.  Next,  INIVAR 
calls  IFSINT,  which  reads  the  inverted  file  directories  and  calls  INIEND, 
which  will  initialize  the  ending  table  that  is  used  by  the  stemming  mech- 
anism. INIVAR  closes  all  files  before  returning  to  SUPER. 


B. 


D. 


Procedures  Calling  INIVAR: 
SUPER 

Procedures  Called  by  INIVA-R 
COMARG  RDF  LX  A 


T ~j.  DEl'i 

locmes 


ik  SINT 
FREE 


.RET 

CLOSE 


COMMON  References: 
Name 


Meaning 


Interrogate 


Changed* 


SYSNAM(  POT.) 

CATS2(POT.) 

IFS2(POT.) 

E. 

Arguments : 

None 

F. 

Values: 

None 

G. 

Error  Codes: 

None 

H. 

Messages : 

System  name 

Last  name  of  catalog  files 

Last  name  of  inverted  files 


x 

x 

X 


1. 

2. 


"Please  enter  last  name  of  catalog  files",  (LOCMES) 
"Please  enter  last  name  of  inverted  files",  LOCMES) 


Footnotes : --  . 

^ 1 . * * IN  T REX  M 

##  2 the  date  of  creation  of  the  files:  mmddyy. 

/ - 74 


I.  Length: 

758  °r6110 

J.  Source: 

INITLY  ALGOL 

/ 

K.  File  References: 

None 


O 

ERIC 
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3.1,2.14  IF5INT 
Purpose 

To  initialize  search  module 
Desc  ription 

The  procedure  IFSINT  must  be  called  once  prior  to  the  first  use 
of  the  Inverted  File  lookup  routine  IFSRCH.  IFSINT  is  called  from 
INIVAR  during  the  data  base  initialization  phase  and  handles  the  reading 
of  the  Inverted  File  directories  and  "ending  table".  Although  IFSINT  is 
closely  related  to  IFSRCH,  it  is  compiled  in  a separate  source  file  and 
communicates  with  IFSRCH  by  means  of  the  sub-procedure  LFSET . 

A.  Operation:  IFSINT  ( ) 

IFSINT  first  calls  the  procedure  INIEND  (see  next  section) 
which  reads  a file  of  common  word  endings  into  core  and  constructs  a 
table  of  pointers  to  ending  subsets  (grouped  by  length)  for  use  by  the 
stejnming  procedure  STEM  during  the  processing  of  user  search  requests. 
INIEND  returns  to  IFSINT  with  the  core  address  of  the  ending  pointer 
table.  This  address  is  then  passed  to  the  module  containing  STEM  by 
calling  the  procedure  GIVTAB  (Section  3.T.2.  16)  with  the  address  in  the 
argument. 

* Next,  the  last  name  of  the  current  Inverted  File  is  extracted 

from  IFS2(POT .)  (where  it  was  placed  earlier  by  INIVAR).  The  size 
(number  of  computer  words)  of  both  the  subject  file  directory  and  the  < 

author  file  directory  is  obtained  and  the  directories  are  read  into  these 
two  areas  via  RDWAIT. 

If  no  directories  with  this  last  name  are  found  on  the  disk,  an 
error  message  (1)  is  typed  and  CHNCOMis  called,  terminating  the  ini- 
tialization process. 

B.  Procedures  Calling  IFSINT 

INIVAR 

C.  Procedures  Called  by  IFSINT 

INIEND,  GIVTAB,  FILCNT,  FREE,  FRET,  OPEN, 

RDWAIT,  CLOSE,  TYPEIT,  LOCMES,,  CHNCOM 

O 


CDir 
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3.1.2. 14 


O COMMON  References: 

Name  Meaning.  .Interrogated? 

jjrg2(POT.)  Inverted  File  Name-Two  x 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "No  subject  inverted  file.",  (LOCMES) 

I.  Length: 

504g  or  3241q  words 

J.  Source: 

' IFS IN T A LGO  L 

K.  File  Reference: 

IF  T A BA  - date  - 
IFTABS  - date  - 
IF  DA  - date  - 
IFDS  - date  - 


Changed? 


V 


\ 


/ 


\ 


3.1.2.15 
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^ ! 7 15  INIEND,  REND(E.F)  ENDTAB 


Purpose 

To  initialize  the  Ending  Table 
Des  c ription 

A list  of  word-endings  exists  in  a disk  file  name  ENDING  TEST 2 
which  must  be  read  and  formatted  into  an  ending-table  by  Intrex  during 
initialization. 

A.  Operation:  TAB  = INIEND  ( ),  REND(E,  F),  ENDTAB(S,  T) 

INIEND  is  called  by  IFSINT  during  "fixed"  initialization  and  by 
GETEND  when  EVAL  is  reconstructing  the  user's  subject  or  title  search 
term  (see  description  of  GETEND  in  Section  3.  2. 6.  3).  INIEND's  main 
function  is  to  return  the  address  of  the  ending  pointer  table  to  the  calling 
program.  If  that  address  has  already  been  inserted  into  the  local  variable 
named  TAB,  then  INIEND  merely  returns  with  this  address  as  its  value. 


O 

ERIC 


If  TAB  is  empty,  INIEND  calls  a sub-procedure  named  REND 
which  will  read  the  ending  file  from  the  disk.  REND  accepts  two  argu- 
ments--the  names  of  the  ending  file  (currently  ENDING  TEST  2)  - and 
calls  FSTATE  on  this  file  to  get  its  length.  An  array  of  free  storage  of 
this  length  is  obtained  by  calling  FREZ.  Two  I/O  buffers  are  also  so 
obtained  and  the  file  is  opened  for  buffered  reading.  An  error  in  opening 
the  file  will  result  in  an  error  message  (1)  and  an  abort  via  CHNCOM. 

Then, the  contents  of  the  file  are  read  into  the  allocated  area,  the 
file  is  closed  and  the  i/O  buffers  are  returned  to  free- storage . An  error 
while  reading  the  file  will  also  produce  an  error  message  (2)  and  a call 
to  CHNCOM. 

At  the  top  of  the  ending  list  is  a group  of  "relative-location 
pointers"  to  the  various  ending -length  subsets . This  is  converted  to 
a table  of  absolute -location  pointers  by  calling  a subprocedure  of  REND 
named  ENDTAB.  This  procedure  accepts  two  arguments  containing  the 
address  of  the  core-stored  ending/pointer  list  and  the  address  of  an  array 

set  aside  to  hold  the  new  pointers.  ENDTAB  then  extracts  each  relative 

pointer,  adds  the  address  of  the  top  of  the  ending  list  to  the  relative 
address,  and  stores  the  modified  pointer  into  the  corresponding  slot  of 

the  new  pointer  array.  78 


c 
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3 .1.2.1” 


When  all  pointers  have  been  cons 
of  this  table  is  passed  back  to  REND, 


tructed  and  stored,  the  address 
from  there  to  INTEND,  and  from 


INIEND  to  the  original  calling  routine. 


B.  Procedures  Calling  INIEND: 
IFSINT,  GET  END 


C. 


Procedures  Called  by  INIEND: 


(through  REND) 


FILCNT,  FREZ, 

FRET,  TYPEIT, 

/ 


BFOPEN,  FBREAD,  BFCLOS, 

locmes,  chncom 


D.  COMMON  References: 
None 


E.  Arguments: 

INIEND  - None; 


REND  - E.F:  ending  file;  ENDTAB  - S: 

endings  address,  T:  table  address 


F.  Values: 

TAB  = address  of  ending  pointer  table 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "bf  routine  error",  (LOCMES) 

2„  "error  in  reading  endings"  (LOCMES) 

I.  Length: 

2538  or  17110 

J.  Source: 

STEM2A  ALGOL 

K.  File  References:  . 

ENDING  TEST  2 


f 


V 


7,9 


3.  1.  2.  16 
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3.  1.  2 16  GIVTAB 
Purpos e ■ 

To  pass  Ending  Table  address 
Description 

A.  Operation:  GIVTAB(TABVAL) 

GIVTAB 's  only  task  is  to  accept  an  argument  containing  the 
ending  table  address  as  passed  from  IFSINT  and  deposR^it  into  the  local 
variable  so  that  it  is  available  to  STEM. 


B. 


C. 


D. 


F. 


G. 


H. 


J. 


K. 


Procedures  Calling  GIVTAB: 
IFSINT 

Procedure  Called  by  GIVTAB: 
None 

COMMON  References: 

None 


Arguments : 

TABVAL 

Values: 

None 

Error  Codes': 

None 

Messages: 

None 

Length: 

108or  8 10 
Source: 

STEMIA  ALGOL 

File  References: 
None 


address  pointer 


3 

ERIC 
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3.  1.  3.  1 


3.  1.  3 Session  Initialization 

3.  1.3.1  DYNAMO 

v 

Purpose 

^ To  initialize  system  for  a user  session 
Description 

DYNAMO  is  the  first  procedure  that  SUPER  calls  when  the  INTREX 
retrieval  system  is  invoked  in  a user  session.  DYNAMO  processes  any 
arguments  that  the  user  has  typed  on  the  command  line  and  performs  the 
kind  of  initialization  (such  as  the  opening  of  files)  that  must  be  done  at  the 
beginning  of  a retrieval  session. 

A.  Operation:  Code  = DYNAMO  ( ) 

DYNAMO  looks  for  the  following  arguments  in  the  CTSS  com- 


mand  line. 

(a)  Sysnam:  If  the  name  of  the  RESUMED  system  is  not  "INTREX” 

o r S "INTNEW 1 ' or  "INXTST"  then  TESTIT  (SST.)  is  set 

to  true.  In  the  TESTIT  mode,  no  monitor  file  is  written. 

(b)  "SHORT"  "LONG":  VERBOS(POT.)  is  set  to  either  0 or  1. 

The  default  value  is  1 (long  mode).  ^ 

fcl  "BEG"-  If  this  argument  is  found,  the  system  will  not  ask  the 
user  to  type  "BEGIN". 

(d)  "SKIP":  This  will  cause  the  entire  signin  procedure  to  be 

skipped.  - 

(e)  "HOLD"  password:  The  sysiem  will  not  return  to  CTSS  level 

unless  the  password  is  typed  along  with  the  quit  command. 

(fl  "RENEW":  Dynamo  returns  to  SUPER  with  a value  of  -1, SUPER 

responds  to  this  value  by  calling  INIVAR  to  re-initialize  the  data 

base. 

After  processing  the  command  line,  DYNAMO  proceeds  to  set  up  the 
system  for  execution  by  calling  the  following  initialization  routines: 

The  overlay  segments  are  opened. 

MONTOR  is  initialized 

if  TEST  IT  (SST .)  is  false,  FAPDBGis  returned 
to  free  storage. 

The  typeit  message  directory  is  read  into  core 
The  interrupt  mechanism  is  initialized 
The  B-core  CPU  clock  is  initialized 


i 

(a) 

OPFILEi 

!■'  • 

(b) 

INIMON: 

i 

I 

(d) 

KILFAP: 

E 

(e) 

INITYP: 

| 

(f) 

ININT : 

1 

(g) 

RSCLCK: 

| O 

ERJC 


SI 
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(h) 

(i) 

(j) 

(k) 


SETWRlJr'  ^IJae  password  is  stored  in  A-core. 

j^pjQP'p.  The  A— go  re  supervisor  is  told  under  what  circum- 
stances the  JN T REX  subsystem  should  be  invoked, 
g ETS Y S : The  A-core  supervisor  is  told  the  name  of  the 

INTREX  subsystem. 

INXCON:  The  type  of  the  terminal  is  determined. 


DYNAMO  returns  to  SUPER  with  a value  of  0.  SUPER  goes  on 
to  log  the  user  in  unless  in  SKIP  mode. 


i3.  Procedures  Calling  DYNAMO: 
SUPER 


C. 


D. 


Procedures  Called  by  DYNAMO: 


CLOSE 
COMARG 
INIMON 
INIDSK  ' 
ININT 


IN  IRES 

INXCON 

KILFAP 

ldopt 


OPEN 

OPFILE 

RSCLCK 

SETSYS 

SETWRD 


COMMON  References: 


Name 


Meaning 


Interrogated? 


ESCODE(POT.) 
CATS2(POT.) 
BYT  EC  (POT.) 

S Y SNA  M(  PO  T . ) 
MAXCHR(POT-) 
DFSNl(POT.) 
DFLNl(POT.) 
PFNl(POT .) 
VERBOS(POT .) 
C LA  MP(SS  T .) 
IBEG(SST.) 
SPEC  1(SST .) 
SKIPS(SST .) 
TESTIT(SST .) 
CAT  1 1(SST .) 


Escape  code 
Name  2 of  catalog 
Byte  count 
System  name 
Line  length  for  output 
Short  message  file 
Long  message  file 
Password  file 
Long/short  mode 
Hold  mode 
In  begin  stage 
Special  switch 
Skip  si^nin 
Testing  mode 
Catalog  off-line 


Changed? 

x 

x 

x> 

X 


X 

X 

X 

X 

X 

X 

X 


E.  Arguments: 

None 

F.  Values: 

Code  = 0 normal  return 

- 1 renew  option  requested 

G.  Error  Codes: 

None 
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3.  1.3.  1 


H.  Messages: 

None 

I.  Length: 

561g  or  36910  words 


INITLY  ALGOL 

K.  Files  Referenced: 

CATDIR  INTREX 
(Sysnam)  SGMT  01 

(Sysnam)  SGMT  02 

(Sysnam)  SGMT  03 

(Sysnam)  SGMT  04 


J.  Source 


S3 
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3.  1.3.  2INXCON 


Purpose 

To  identify  type  of  console 


Description 

A.  Operation:  Bool  = INXCON(  ) 

XNXCON  sets  the  value  of  BLlP(POT.)  and  returns  a value  of 
true  or  false  depending  on  the  type  of  console  the  system  is  interacting 
with  This  determination  is  made  by  noting  the  page  length  supplied  y 
the  procedure  GETP  (Section  3. 6.  1. 5).  The  values  are  set  according 

to  the  following  rules: 


Type  of  Console 
2741 
ARDS 

INTREX  Console 


Value  of  INXCON 
false 
false 
true 


Value  of  blip(pot.) 
s pace -backs pace 
0 
0 


B.  Procedure  Calling  INXCON: 

DYNAMO 

C.  Procedures  Called  By  INXCON: 

GETP,  WHO  AMI 

D.  COMMON  References: 

Name  Meaning 

BLIP(POT.)  blip  characters 


Interrogated?  Changed? 

x 


E.  Arguments: 
None 


F.  Values: 

Bool  = TRUE  if  INTREX  console,  FALSE  otherwise 

G.  Error  ^Codes: 

None 


H.  Messages: 
None 


I. 

J. 


Length: 

45g  or  3710  words 
Source: 

INITLY  ALGOL 
Files  Referenced: 

None 
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3.  1.  3.  3 


3. 1.3.3  OPFILE,  CLFILE 
Purpose 

To  open  and  close  overlay  segments 
Description 

A.  Operation:  OPFILE(  '),  CLFILE(  ) 

These  routines  open  the  overlay  segments  and  close  them. OPFILE 
calls  SETWRD  with  an  argument  of  "STOP"  so  that  an  I/O  error  cn 
opening  a segment  will  not  put  the  system  into  a loop.  After  all  4 seg- 
ments have  been  successfully  opened,  OPFILE  calls  SETWRD  with  an 
argument  of  ESCOD  J(POT. ). 

B.  Procedures  Calling  OPFILE  and  CLFILE: 

DYNAMO,  GET  LIN 


O 

ERIC 


c. 

Procedures  Called  by  OPFILE  and  CLFILE: 

OPEN,  CLOSE, 

SETWRD 

D. 

COMMON  References 

l 

Name 

Meaning  Inte: 

/ 

ESCODE(POT .) 

Escape  Code 

E. 

Arguments: 

\ 

None 

‘ 

F. 

Values: 

None 

G. 

Error  Codes: 

V 

None 

H. 

Messages: 

None 

I. 

Length  H3g  or 

7510 

words 

J. 

Source: 

IN  IT  2 ALGOL 

- 

K. 

Files  Referenced: 

f 

(Sysnam) 

SGMT  01 

. (Sysnam) 

SGMT  02 

(Sysnam) 

SGMT  03 

(Sysnam) 

SGMT  04 

Changed? 


00 
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3.  1.3.4  KILFAP  J / 

Purpose 

To  return  FAPDBG  to  free  storage 

Des  c ription  \ 

A.  Operation  KILFAP(  ) y 

KILFAP  returns  FAPDBG  to  free  storage.  It  finds  the  begin- 
ning of  FAPDBG  by  means  of  a transfer  vector  and  returns  to  free  stor- 
age a block  of  1 2520g  words  beginning  at  this  point.  This  routine  is  only 
used  in  versions  of  INTREX  which  actually  have  FAPBG.  Those  versions 
which  do  not  have  FAPDBG  use  a dummy  version  of  KILFAP. 


B. 

Procedures  Calling  KILFAP: 
DYNAMO 

C. 

Procedures  Called  by  KILFAP: 
FRET 

D. 

CO MMON  Ref e rences ; 

- 

None 

E. 

Arguments : 

None  i 

F. 

V alues : 
None 

G. 

Error  Codes: 
None 

H. 

Messages: 

None 

Length: 

I4g  or  12 jq  words 

j. 

Source: 

SYSGEN  FAP 

K. 

Files  Referenced: 

None 

86 
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3 . 1.4.  1 


3.  1,4.  1 GO 
Purpose 

To  start  retrieval  session 
Description 

A.  Operation:  Code  = GO  ( ) 

CLP  transfers  to  GO  when  it  detects  the  command  "BEGIN"  in 
the  user's  command  line.  If  the  user  is  in  the  begin  stage  of  INTREX 
(i.e.,  if  IBEG(SST.)  is  true),  GO  will  set  IBEG(SST.)  to  false,  thereby 
letting  the  user  out  of  the  begin  stage.  If  the  user  is  not  in  the  begin  stage 
but  is  operating  in  HOLD  mode,  (i.e.  C LAMP'SST . ) is  true),  GO  will  call 
QUIT  to  end  the  session  and  force  the  system  to  recycle.  If  the  user  is 
neither  in  the  begin  stage  nor  in  HOLD  mode,  GO  will  return  with  a value 

of  -1. 

B.  Procedures  Calling  GO: 

CLP  (via  CALLIT)  - 

C.  Procedures  Called  by  GO: 

QUIT 

D.  COMMON  References: 

Meaning 

In  begin  stage 
In  HOLD  mode 


BEGIN  command  inappropriate 


Name 

IBEG(SST.) 

C LA  MP(SS  T . ) 

E.  Arguments: 

None 

F.  Values: 

Code  = 0 

G.  Error  C^des: 

Code  = - 1 : 


Interrogated^ 


Changed/ 


TJ 
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H.  Messages: 

None 

I.  Length: 

37 g or  3 1 10  words 

j.  Source: 

si? 

VERBOS  ALGOL 

K.  Files  Referenced: 
None 


83 
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3.  1 . 4. 2 


3.  1.4.2  SIGNIN 
Purpose 

To  log  in  an  INTREX  user 
De  s c r ipti  o .1 

A.  Operation:  SIGNIN(  ) 

SUPER  calls  SIGNIN  to  welcome  the  user  to  INTREX.  If  the  argu- 
ment SKIP  had  been  given  when  INTREX  was  resumed,  SIGNIN  will  bounce 
back  to  SUPER  without  doing  anything.  Otherwise,  SIGNIN  will  print  a 
message  on  the  console  asking  the  user  to  log  in  and  will  then  call  GET LIN 
to  receive  the  user's  response.  If  the  user  types  something  other  than 
LOG,  LO  SIN,  or  QUIT,  SIGNIN  will  repeat  its  request.  If  the  user  types 
QUIT,  SIGNIN  will  call  the  subroutine  QUIT.  If  the  user  correctly  types 
LOG  or  LOGIN,  but  did  not  follow  this  word  with  his  name,  SIGNIN  will 
complain  and  then  repeat  its  request.  When  SIGNIN  receives  the  sequence 
LOG(IN)-space-character.  string,  it  will  capitalize  the  first  letter  of  the 
character  string  and  use  it  as  the  user's  name  in  its  final  mes sage . SIGNIN 
calls  FRALG  (Section  3.4.  1.  10)  to  give  up  the  SIGNIN  area  to  free  stor- 
age before  returning  to  SUPER. 

B.  Procedures  Calling  SIGNIN: 

SlJPER(via  CALLIT) 

C.  Procedures  Called  by  SIGNIN: 

;_CTSIT6,  FRALG,  GET,  NEXITM,  PUT,  TYPEIT 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

ISI(SST.)  In  sign-in  ' K 

E.  Arguments: 

7 

None 

F.  Values: 

N one 

G.  Error  Codes: 

None 

89 
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H.  Messages: 

1.  "Intrex  could  not  understand  your  log  statement"  ($BEGER1$) 

2.  "Please  log  in  by  typing  the  word  LOG  followed  by  a space  and 

your  name  and  address  as  in  the  following  example,  log  smith, 
rj;  mitl3-5251;  ext7234.  f| 

Note  that  your  log  statement  should  end  with  a carriage  return. 
("Please  log  in  by  typing  the  word  LOG  followed  by  your  name 

and  address.'4)  ($beger2$) 

3.  "Intrex  could  not  find  your  name  in  your  log  statement. 
($beger3$) 

4.  "Greetings'!  This  is  Intrex.  Please  log  in  by  typing  the  word 
LOG  followed  by  a space  and  your  name  and  address  as  in  th 
following  example: 

log  smith,  rj;mit  13-5251;  ext  7 234 

Note  that  your  log  in  statement  should  end  with  a carriage  re 
turn."  ("Please  log  in.")  ($sinl$) 

5 "Welcome  to  Intrex  M.  xxxxx.  If  your  already  know  how  to 

use  Intrex,  you  may  go  ahead  and  type  in  commands  (Remem- 
ber, each  command  ends  in  a carriage  return.)  Otherwi-  , 
for  information  on  how  to  make  simple  searches  of  the  catalog, 

tlfjee  the  table  of  Contents  (Part  1)  of  Intrex  Guide  which 
will  direct  you  to  other  parts  of  the  Guide  explaining  how  to 
make  more  detailed,  searches,  type 
info  1"  ("Welcome  M.  xxxx")  (/sin2a/,  /sin2/) 


I.  Length: 

I50g  or  1041q  words 

J.  Source: 

SQUIRE  ALGOL 

K.  Files  Referenced: 

None 


90 

o 

ERIC 


-75- 


3. 1.4*3 


3.  1.4.3  EXIT 
Purpose 

To  tell  the  user  how  to  exit  from  INTREX 
Description 

A.  Operation:  Code  = EXIT(  ) 

EXIT  prints  a message  to  the  user  suggesting  that  he  make 
some  comments  about  the  system  before  he  terminates  his  retrieval 
session. 

B„  Procedures  Calling  EXIT: 

CLP  (via  CALLIT) 

C.  Procedures  Called  by  EXIT: 

TYPEIT 

D.  COMMON  References: 

None 

E.  Arguments: 

None 


F„  Values: 

Code  = 0 

G.  Error  Codes: 

None 

/ 

H.  Messages: 

1.  "We  would  appreciate  your  comments  on  the  Intrex  system.  For 
information  on  how  to  make  comments,  see  Part  13  of  s-juide  or 
type, 
info  13 

You  may  also  make  additional  service  requests  of  the  Intrex  con- 
sultant. If  you  do  not  wish  to  make  any  other  comments  or  re- 
quests, type 

quit."  ("Please  comment  or  quit.")  (/exmes/) 

I.  Length: 

23g  or  19 j q words 
* 

J.  Source; 

SQUIRE  ALGOL 


K. 
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None 
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3.  1.4.4  QUIT 
Purpose 

To  exit  from.  INTREX  ' 

Description 

QUIT  terminates  an  INTREX  session  and  returns  the  user  to  CTSS 
command  level.  If  the  INTREX  system  is  in  HOLD  mode  (i.  e.  , CLAMP 
(SST.)  =_T-RUE),  "'the  subsystem  INXSUB  will  take  control  and  return  the 

user  to  INTREX.  , < 

A.  Operation  QUIT(Ptr) 

Quit  is  called  by  three  different  subroutines:  CLP,  SIGNIN,  and 

GO.  When  a user  terminates  a retrieval  session  by  typing- QUIT,  CLP 
calls  the  procedure  QUIT.  If  a user  responds  to  SIGNIN' s request  to  log 
in  by  typing  QUIT,  SIGNIN  will  call  QUIT.  Finally,  a user  can  terminate 
a retrieval  session  by  typing  BEGIN,  which  will  cause  CLP  to  transfer  con- 
trol to  GO,  which  will  transfer  control  to  QUIT.  The  inner  workings  of 
QUIT  are  as  folloy/s: 

1.  If  the  argument  Ptr  of  QUIT  is  a pointer,  the  string  that  it 
points  to  is  compared  with  ESCODE(POT .).  If  they  are  equal, 
the  HOLD  mode  is  turned  off  by  setting  CLAMP(SST.)  to  zero.  X 
In  either  case,  the  message  "Password  received  ....... 

(PASSWORD)"  is  printed. 

2.  The  Dump  File  DUMOOx  FILE,  is  t.-uncated  to  zero. 

3.  If  the  monitor  is  on,  a timing  summary  is  added  to  the—  ^ 
Monitor  File  and  to  the  file  TIMING  SUMARY  by  means  of 

a call  to  SUMOUT . 

4.  CATDIR  is  closed. 

5.  If  control  has  not  passed  to  QUIT  from  GO  (the  argument  of 
QUIT  will  be  a 1 if  it  has)  the  message  "Thank  you  for  using 
INTREX"  will  be  typed. 

6.  If  the  system  is  not  in  HOLD  mode,  the  A-core  option  register 
is  set  to  zero  and  DORMNT  is  called. 

7.  If  the  system  is  in  HOLD  mode,  the  Password  File  is  extended 
by  one  word.  If  QUIT  was  called  by  GO,  CHNCOM  is  called; 
otherwise,  DORMNT  4 s called. 

QUIT  communicates  information  to  the  INTREX  subsystem  INXSUB, 
(Section3.  1.  10.  3)  in  two  different  ways : 

1.  QUIT  lengthens  the  password  file  to  3 words.  This  indicates  to 
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3.  1. 4. 4 


INXSUB  that  control  was  deliberately  returned  by  means  of  a QUIT  or 
BEGIN  command,  rather  than  by  means  of  a system  error. 


B. 


QUIT  returns  to  CTSS  via  CHNCOM  if  the  user  has  typed  QUIT,  or  via 
DORMNT  if  the  user  typed  BEGIN.  INXSUB  can  distinguish  between  the 
two  by  examining  the  bits  in  the  subsystem  condition  code. 

I 

Procedures  Called  By  QUIT:  J 

BCDASC  BUFFER,  BZEL,  CHNCOM,  CLOSE,  CT3IT6,  DORMNT, 
FrSt?  LDo/t  NEXITM,  RJUST,  SETSYS.  SETWRD,  SUMOUT. 
TRFILE,  TYPEIT,  WRWAIT 


C.  Procedures  Calling  QUIT: 

‘ CLP  (via  CALLIT),  SIGNIN,  GO 


D. 


COMMON  References: 


Name 

PFNl(POT.) 
COMBFO(POT .) 
C ATS2(POT  *) 
MFUNl(POT,) 
DFNl(POT.) 
ESCODEf  POT.) 
C LA  MP(SS  T .) 


Meaning 

Name!  of  password  file 
Common  buffer  0 
Name2.  of  catalog 
Name!  of  monitor  file 
Namel  of  dump  file 
Escape  code 
Hold  mode 


Interrogated? 

x 

x 

x 

X 

X 

X 

X 


E*  Arguments: 

Ptr:  ASCII  pointer  if  called  by  CLP  or  SIGNIN, 

binary  1 if  called  by  GO 


F.  Values: 
None 


Changed? 


x 


G.  Error  Codes: 

None 

H.  Messages: 

1.  "Error  in  writing  password  file*  No  automatic  resumption  of  Intrex 

($passer$) 

2.  ’’Password  received — pas s »f  * ($passok$) 

3.  "Thank  you  for  using  IntrexV  ($outmes$) 


I.  Length: 

277g  or  191  words 

J.  Sov  — e: 

SQUIRE  ALGOL 

K.  Files  Referenced: 

CATDIR  INTREX 

DUMOOx  FILE 

PASO  Ox  FILE  03 


3.  1.  5.  1 
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3,1.5 Time  Controls 

3,1,5.  1 MONINT 
Purpos  e 

To  initialize  MONTIM,  TRANS,  SUMOUT 
Description 

A.  Operation:  MONINT(  ) 

MONINT  is  called  by  INIFIX  to  initialize  MONTIM,  TRANS 
and  SUMOUT.  MONINT  generates  a number  of  short  ASCII  strings  by 
calls  to  .C.  ASC*  Three 'eleven-word  arrays  are  set  up  to  hold  timing 
data.  Their  locations  are  deposited  in  the  common  words  MODS(POT,)} 
CPUS(POT.)  and  REAS(POT.).  MODS(POT.)  points  to  an  array  con- 
taining counts  of  the  frequency  of  calls  to  various  modules.  The  array 
pointed  to  by  CPUS(POT.)  contains  central  processor  times  and 
REAS(POT.)  refers  to  real  times.  MONINT  calls  FRALG  before  re- 
turning to  INIFIX. 

B0  Procedures  Calling  MONINT:  v 

INIFIX 

C.  Procedures  Called  by  MONINT: 

FRALG,  FREZ,  . C .ASC 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 


MODS(POT.) 

Module  call  count 

X 

CPUS(POT.) 

CPU  Times 

X 

REAS(POT.) 

Real  Times 

X 

E*  Arguments: 
None 

F.  Values: 

None 

c" 

G.  Error  Codes: 

None 

H.  Messages: 

None 


94 


I.  Length: 

110g  or  721q  words 

J.  Source: 

MONT  I M ALGOL 

K.  Files  Referenced: 

None 


O 
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3,  1.  5.  2 
3 1.5.2  MONT  IM 

Purpose 

To  monitor  computer  and  user  times 
Desc  ription 

A.  Operation:  MONTIM( Mode,  T.array,  Label) 

MONTIM  updates  the  timing  array  pointed  to  by  T.array.  De- 
pending on  the  value  of  Mode,  it  will  also  update  the  summation  arrays, 
write  a message  on  the  console,  or  write  a message  in  the  Monitor  File. 

The  second  argument  of  MONTIM,  T.array,  is  a pointer  to  a 
four  word  timing  array.  If  the  first  word  of  this  array  is  zero,  MONTIM 
is  being  called  for  the  first  time  for  that  array.  In  this  case,  MONTIM 
calls  JOBTM  to  place  the  total  CPU  time  in  the  first  and  third  words  of 
the  array.  The  current  time  of  day,  obtained  from  GETIME,  is  placed 
in  the  second  and  fourth  words,  and  MONTIM  returns  to  its  calling  pro- 

gram. 

If  the  array  has  already  been  initialized,  MONTIM  uses  the  array 
to  compute  the  following: 

1.  The  total  elapsed  CPU  Time 

2.  The  total  elapsed  Real  Time 

3.  The  elapsed  CPU  time  since  the  last  update  of  the  array 

4.  The  elapsed  Real  Time  since  the  last  update  of  the  array 

The  third  word  of  the  array  is  replaced  with  the  current  CPU 
Time  and  the  fourth  word  with  the  current  Real  Time. 

If  Mode  has  a value  of  one,  timing  data  will  be  printed  on  the  con- 
sole in  the  following  format: 

Time  Used  3.  18/105.65 

The  first  number  is  the  elapsed  CPU  time  since  MONTIM  last 
referenced  T.array,  and  105.65  is  the  total  CPU  time  since  the  timing 
process  began* 

If  Mode  has  a value  other  than  one,  the  following  line  is  written 
in  the  ft4onitor  File. 


O 
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TIME  (label)  0.  18/10.  80  2.10/208.32 

The  string  represented  by  (label)  is  given  to  MONTIM  by  its 
second  argument.  The  second  pair  of  numbers  represents  the  incre- 
mental and  the  total  Real  Time. 

If  Mode  is  2,  the  summary  arrays  are  updated.  The  last  6 

bits  of  label  are  used  to  index  the  arrays, 

B.  procedures  Calling  MONTIM: 

CALLIT,  GET  LIN,  INIMON,  MONTOR,  SUPER, 

TYPEIT 


C. 


D. 


Procedures  Called  by  MONTIM: 


A.SIDE,  GETIME,  JOBTM,  TRANS,  TYPEIT 
COMMON  References 


Name 

MFUNl(POT.) 

MFUN2(POT.) 


Meaning  Interrogated? 

Monitor  File  Name  1 x 

Monitor  File  Name  2 x 


Changed? 


E. 


Arguments : 
Mode  = 


0: 

1: 

2: 


write  timing  message  in  monitor  file 

write  timing  message  on  console- 

write  timing  message  in  monitor  file  and  up- 
date summation  arrays. 


T. array  : 
Label  : 


location  of  four-word  array 

TYPEIT  message  label  - last  six  bits  are  used  as 
index  for  timing  summation  arrays. 


p.  Values: 

None 


G.  Error  Codes: 

None 

H.  Messages: 

1.  "TIME  USED  3.18  /106.65  • 


I.  Length: 


506g  or  326  words 

* Elapsed  CPU  time  since  timing  array  was  last 
** Total  CPU  time  since  first  reference 

97 


referenced 
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Source: 

MONTIM 


ALGOL 


K.  Files  Referenced: 
None 
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3.  1.5.3  TIM£ 

Purpos e 

To  carry  out  user's  time  request 
Description 

A.  Operation:  Code  = TIME  (Ascptr) 

The  subroutine  TIME  is  called  by  CLP  in  response  to  the  user's 
command  "time".  If  the  command  is  followed  by  the  argument  "on"  or  no 
argument  at  all,  TIME  will  set  TIMES(SST.)  to  TRUE.  The  the  command 
is  followed  by  "off",.  TIMES(SST.)  is  set  to  FALSE.  If  the  command  is 
followed  by  some  other  character  string,  an  error  message  is  printed. 

B.  Procedures  Calling  TIME: 

CLP  (via  CALLIT) 

C.  Procedures  Called  by  TIME: 

COMPUL,  LOCMES,  NEXITM,  TYPEIT 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

TIMES(SST.)  Timing  mode  x 

E.  Arguments: 

Ascptr:  ASCII  pointer  to  user  comrpand  line 

F.  Values: 

Code  = 0 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "Improper  time  request"  (LOCMES) 

I.  Length: 

310g  or  200^  words 

J.  Source: 

MONTIM  ALGOL 

K.  Files  Referenced: 


None 
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3.  1.5.4  SUMOUT 
Purpose 

To  write  timing  summation 


Description 

A.  Operation:  SUMOUT  ( ) 

SUMOUT  is  used  to  write  out  a summary  of  timing  data  into  the 
Monitor  File  at  the  end  of  a retrieval  session.  It  is  called  by  MONTOR  or 
QUIT  in  response  to  the  user  commands  "monitor  off"  or  "quit". 

SUMOUT  performs  the  following  steps: 

1.  The  Monitor  File  is  closed  by  the  call  INIDSK(O). 

2.  A temporary  file  "NEW  SUMARY"  is  opened  via  INIQSK 

3.  The  following  information  is  written  (via  ASIDE)  into  WEW 
SUMARY" 

Summary  File  for  Intrex  system- - 0 1257  1 monitor  iile- - monOOl  file 


total  cpu 

time  is  - 

- 109. 

73  secs 

total  real  time  is- 

- 927. 

16  secs 

module 

name 

no 

calls 

total  cpu 

ave  cpu 

per 

£B\L 

tot  real 

ave  real 

signin 

19 

5.87 

0.  30 

5 

88.74 

4.65 

sign2 

19 

7.03 

0.  36 

6 

7.41 

0.  38 

clp 

16 

29.42 

1. 83 

26 

516.  11 

32.  24 

fso 

4 

47.91 

1 1.  97 

43 

172. 94 

43.23 

eval 

7 

6.49 

0.  91 

5 

21.40 

3.05 

search 

8 

1 1. 74 

1. 45 

10 

12.80 

1.60 

inti 

1 

1.25 

1. 25 

1 

107. 69 

107.69 

int  2 

1 

8.61 

8.  61 

6 

36. 28 

36.28 

per  real 

9 

0 

55 

18 

2 

1 

11 

0 


o 

ERIC 


This  table  is  an  example  of  the  type  which  is  constructed  using  the 
data  that  has  accumulated  in  the  arrays  MODS(POT.),  CPUS(POT.)  and 
PEASJPOT.) 

4.  The  file  NEW  SUMARY  is  appended  to  the  end  of  the  Monitor 
File  and  TIMING  SUMARY. 

5.  NEW  SUMARY  is  deleted. 
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B.  Procedures  Calling  SUMOUT: 

MONTOR,  QUIT 

C.  Procedures  Called  by  SUMOUT: 

ASIDE,  BCDASC,  BFWRIT,  BUFFER,  CLOSE,  DELFIL, 
INIDSK,  LOCMES,  OPEN,  RDWAIT,  TYPEIT,  WRWAIT 


D.  COMMON  References: 
Name 


Meaning 


Interrogated?  Changed? 


COMBFl(PCT.) 

MFUNl(POT.) 

MFUN2(POT.) 

MFNl(POT.) 


Common  buffer 
Monitor  Filename  1 
Monitor  File  name  2 
Monitor  File  name  1 


x 

X 

X 

X 


E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "Error  in  writing  summary  file.  Error  code  x"  (LOCMES) 

2.  "Error  in  adding  timing  summary  to  Monitor  File"  (LOCMES) 


I.  Length: 

7 02g  or  4501q  words 

J.  Source: 

MONTIM  ALGOL 

K.  Files  Referenced: 

TIMING  SUMARY 
MONnnn  FILE 
NEW  SUMARY 
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3.  1.5.  5 TRANS 
Purpose 

To  convert  binary  times  to  ASCII  minutes 


Description 

A.  Operation:  Ptr  = TRANS(Time) 

TRANS  is  used  by  MONTIM  and  SUMOUT  to  convert  binary- coded 
decimal  representation.  TRANS  returns  two  values:  a pointer  to  the 

number  of  seconds  (or  minutes)  represented  by  Time  and  a 
pointer  to  the  number  of  hundredths  of  a second  (or  minute)  beyond  the 
first  value  that  are  represented  by  Time.  The  first  pointer  is  expressed 
as  the  value  of  TRANS;  the  second  pointer  is  a variable  (Rptr),  held  in 
common  with  TRANS,  MONTIM,  and  SUMOUT. 

B.  Procedures  Calling  TRANS: 

MONTIM,  SUMOUT 

C.  Procedures  Called  by  TRANS: 

COPY,  DEC  1 , INC,  INC  1 , INTASC,  PUT 

D.  COMMON  References: 

None 

E.  Arguments: 

Time:  time  expressed  in  60th's  of  a second  (binary  value). 

F.  Values: 

/ 

Ptr  = pointer  to  ASCII  representation 


G.  Error  Codes: 

None 

H.  Messages: 

None 


I.  ' Length: 


J. 

K. 

O 

ERIC 


2 17g  or 


143jq  words 


Source: 

MONTIM  ALGOL 

Files  Referenced: 

None 
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3.  1. 


Monitor  File  Control 


3.  1.6.1  INMON2 . IN  IMP  N 


Purpos e 

To  initialize  MON  TOR  and  TIME 
Description 

A.  Operation:  IN^MONZ(  ),  INIMON(  ) 

INMON2  and  INIMON  initialize  the  routines  .MONTOR  and  TIME. 
INMON2  is  called  during  the  overlay  initialization  phase  and  is  called  by 
SEGINT.  INIMON  starts  up  the  timing  and  monitoring  process.  It  is 
called  by  DYNAMO  during  the  session  initialization  phase. 

Procedures  Calling  IN  MON  2 , INIMON: 

SEGINT  (INMON2) 

DYNAMO  (INIMON)  . 

Procedures  Called  by  INMON2,  INIMON: 


B. 


C. 


E. 


G. 


H. 


J. 


ERIC 


.C.  ASC  (INMON2) 

GETTM,  MONTIM,  MONTOR  (INIMON) 


D.  COMMON  References: 


Name 


Meaning 


STM.  (POT  J 
RTM.  (POT.) 


TESTIT(SST.) 


System  time  monitor 
Ready  message  time 
monitor 
Test  mode 


Inte  rrogated' 
x 


C hanged 4 


C 


x 

x 


Arguments : 
None 


Values: 

None 


Error  Codes: 
None 


Messages: 

None 


Leng  th 


140g  or  96 


10 


words 


Source: 

MONPAK  ALGOL 


K. 


Files  Referenced: 
None 
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3.1. 6.2  IN  IDS  K 


Purpose 

To  direct  output  stream  onto  disk:  or  console 
Description 

j\ . Operation:  INIDSK(Narnel , Name2,  Mode) 

INIDSK  can  be  called  with  one,  two  or  three  arguments.  If 
IN  IDS  K has  one  argument  with  a value  of  0,  the  Monitor  File  is  closed. 

If  the  argument  is  not  0,  an  error  message  is  printed.  If  INIDSK  has 
two  arguments,  the  console  is  turned  ON.  If  the  arguments  are  non-zero, 
they  are  used  as  the  names  of  a A/Ionitor  File,  which  is  opened.  If 
INIDSK  has  three  arguments,  the  first  jtwo  are  used  as  the  name  of  a 
Monitor  File  to  be  opened.  If  argument^  one  and  two  are  zero,  the 
Monitor  File  is  closed.  The  third,  argument  will  turn  off  the  data  flow 

to  the  console  if  it  is  set  to  zero  and  will  turn  the  console  on  if  it  is  set 

» . 

to  one • * I 

3.  Procedures  Calling  INIDSK: 

DYNAMO,  FSO,  GET  LIN,  MONTOR,  SUMOUT 

G.  Procedures  Galled  by  INIDSK: 

BiFCLOS,  BFOPEN,  FSTATE,  LOCMES,  SET  W RD 
TjYFASH 

D.  COMMON  References: 

* Name  Meaning  Interrogated?  Changed? 

ts>  — — ■“* 

MONBFl(POT.)  Monitor  buffer  1 x 

MONBF2(POT.)  Monitor  buffer  2 x 

c. 

E.  Arguments: 

Name  1 : 1st  name  of  Monitor  Eile 

Name  2:  2nd  name  of  Monitor  Eile 

Mode:  0-  console  off,  1-console  on 


E . Values: 

None 

G*  Error  Codes: 
None 


0 
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H .  Messages: 

1.  "Error  in  opening  disk  output  file.’1  (LOCMES) 

2 . "Error  in  closing  disk  output  file.¥!  (LOCTvlES) 

N 3.  "Improper  Inidsk  arguments."  (LGCMES) 

J.  Length: 

217g  or  14310  words 

J - Source: 

TYPINT  ALGOL 

K .  Files  Referenced: 

MONnnn  FILE 
CATII  OUTPUT 


O 

ERIC 
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f 


3 . 1.6.  3 MQNTOR 

Purpose 

To  open  or  close  Monitor  Pile 


Des  c ription 

A.  Operation:  Code  = MONTOR  (Ascptr) 

MONTOR  is  called  by  CLP  in  response  to  the  user  command 
"monitor".  If  there  is  no  argument  following  the  command,  or  if  the 
command  is  followed  by  "ON",  the  Ivlonitor  Pile  is  opened  and  a header 
is  written.  If  the  command  is  followed  by  uoffu,  it  is  closed.  If  some 
other  character  string  follows  the  command,  an  error  message  is  printed. 

MONTOR  opens  the  Monitor  Pile  by  calling  INIDSK  (Section 
3.  1.6.2)  with  the -arguments  "MFNIfPOT.),  PILE,  ln.  If  the  Monitor 
Pile  is  already  open,  INIDSK  will  do  nothing.  MONTIM  is  called  with  a 
mode  of  0,  which  causes  a message  like  the  following  to  be  written  in  the 
Monitor  File: 

TIME  monom  0.  13/0.13  0. 00/00  ' 

This  line  is  followed  by  a form  feed  and  a message  of  the  follow- 


ing type: 

"Today's  date  is  021671 
32  past  14  T0289  6162  MIT8B7  OVL900008 
No  holding  password" 

This  message  can  be  explained  as  follows: 


T0289  6162:  problem  number  and  programmer  number 

MIT8B7:  name  of  the  CTSS  operating  system  currently  in  use 


OVL:  Name  of  the  current  INTREX  system 

900008:  Address  of  console 

No  holding 

Password:  Printed  if  user  has  not  typed  a password,  x.  j If 

he  has,  the  message  "Password  is  x"  appears. 


B.  Procedures  Calling  MONTOR: 
CLP  (via  CALLIT) 


O 

ERIC 


106 


-91  - 


3.  1. 6. 3 


C.  Procedures  Called  by  MONTCR: 

ASCIT6  ASIDE,  BCDASC,  COMPUL,  INIDSK,  MONTIM, 
NEXITM,  SUMOUT,  TYPEIT,  WHEN,  WHOA  MI 


D.  COMMON  References: 


Name 

MFUN  l(POT .) 
MFUN2  (POT.) 
STM^POT.) 
MFNl(POT.) 

S YSNAM(  POT.  ) 
CLAMP(SSTo) 


Ea  Arguments: 

ASCPTR: 

F0  Values: 

Code  = 0 

G.  Error  Codes: 


Meaning 

Monitor  File  Name  1 
Monitor  File  Name  2 
System  Time  Monitor 
Monitor  File  Name  1 
System  name 
Hold  mode 


Inte  r r og  ated  ? Chang  ed  ? 

x 

x 

x 

x 

x 

x 


ASCII  pointer  to  user  command  line 


None 

Messages: 

1.  "Improper  monitor  request"  (LOCMES) 


I.  Length: 

324^  or  2 12  words 

J.  Source: 

MONPAK  ALGOL 


K„  Files  Referenced: 
None 
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3.  1.6.4  ASIDE,  ASSET 
Purpose 

To  write  data  in  Monitor  Pile 
Description 

A.  Operation:  ASIDE  (Argl,  « . .»  Argn),  ASSET(  )y 

ASIDE  is  a means  of  writing  data  into  the  Monitor  File  without  also 
v/riting  it  on  the  console.  A procedure  callsASIDE  with  the  same  sort 
of  arguments  a call  to  TYPEIT  would  have.  ASIDE  saves  the  contents 
of  index  register  4,  which  contains  the  location  of  the  call  to  ASIDE. 

AS  IDE  then  calls  ASSET,  which  is  associated  with  TYPEIT.  ASSET 
turns  on  a flag,  which  puts  TYPEIT  into  the  ’’aside”  mode.  After  re- 
gaining control  from  ASSET,  ASIDE  restores  the  contents  of  index  reg- 
ister four  and  transfers  control  to  the  entry  point  of  TYPEIT.  As  far  as 
TYPEIT  can  tell,  it  is  being  called  directly  from  the  subroutine  which 
called  ASIDE.  TYPEIT  transmits  the  message  specified  by  the  argu- 
ment list,  turns  off  the  "aside  mode”  flag,  and  transfers  control  back  to 
the  program  which  called  aside. 

Procedures  Calling  ASIDE,  ASSET 

ASIDE:  GETLIN,  LISTEN,  MONTXM,  MONTOR,  PUTS, 
SEARCH,  SUMOUT,  SUPER,  TYPEIT,  WRT 

Procedures  Called  by  ASIDE,  ASSET 

ASIDE:  ASSET,  TYPEIT 

ASSET:  None 

COMMON  Refe  rences : 

None 

Arguments : 

Arg  I . . . Argn:  see  desc  ription  of  T YPEIT  (Section  3 . 1.7.2) 

V alues : 

None 

Error  Codes: 

None 

108 
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3 . 1.6.4 


H.  Messages: 

None 

I.  Length: 

10  words  (5  each) 

J.  Source: 

TYPINT  ALGOL  (ASSET),  ASIDE  FAB  (ASIDE) 

K.  Files  Referenced: 

None 


/ 


o 

ERIC 
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3.  1.  7 Typing  Controls 

3,  1,7.  1 INITYP 
Purpos  e 

To  initialize  TYPEIT 
Des  c r iption 

Before  the  main  typing  procedure  TYPEIT  can  be  used  in  the 
mode  that  accepts  a (core-or-disk-stored)  message  label  as  an  argu- 
ment and  outputs  the  corresponding  message,  a Message  File  and  Direc- 
tory must  be  generated  by  DIRGEN  (see  Section  5.1).  DIRGEN  creates  a 
Message  Directory  File  and  Message  or  ’'texf’File  from  a disk- stored  ASCII 
file  containing  messages  (or  message  segments).  These  files  are  activated  by  INITYP. 

A,  Operation:  INITYP(NAMEl) 

INITYP  reads  the  Message  Directory  into  core  into  an  array 
obtained  from  free  - storage . If  a subsequent  call  to  INITYP  is  made  to 
change  Message  Files,  the  old  storage  area  is  returned  before  a new  one 
is  obtained.  This  is  accomplished  by  using  local  variables  to  store  the 
address  and  length  of  the  current  directory  and  setting  a flag  (named  IN) 
to  indicate  that  a directory  is  stored.  When  the  presence  of  this  flag  is 
detected  on  entering  INITYP,  the  indicated  area  is  returned  to  free  stor- 
age via  FRET  and  the  current  text  file  is  closed  by  the  CTSS  procedure 
CLOSE. 

Before  attempting  to  open  the  new  files,  the  special  word  in  the 
CTSS  supervisor  (which  Intrex  uses  to  control  the  e^rror- recovery  sub- 
system) is  set  to  the  r,stopM  code  Jo  prevent  resumption  of  Intrex  if  an 
i/O  error  occurs.  First  the  CTSS  procedure,  GETWRD,  is  called  to  ex- 
tract and  save  the  current  contents  of  the  A-core  word.  Then  the  word 
is  set  to  nstopM  by  the  routine  SETWRD. 

Now  the  length  of  the  message  directory,  whose  first  name  is 
supplied  in  the  argument  of  the  call  to  INITYP  and  whose  last  name  rnust.be 
DIRTAB,  is  obtained  by  calling  FSTATE.  Unless  the  data  from  FSTATE 
shows  that  the  file  is  already  open,  the  directory  file  and  the  text  file 
(whose  first  name  is  the  same  and  whose  last  name  is  TEXT)  are  both 
opened  for  reading  via  the  CTSS  procedure,  OPEN. 
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Next,  the  storage  area  for  the  directory  is  obtained  by  a call  to 
FREE,  with  the  directory  length  as  an  argument.  IF  FREE  returns  an 
error  code  instead  of  an  address  {indicating  thatnot  enough  storage  is 
available),  the  address  parameter  is  set  to  the  top  of  core  to  force  a 
protection  violation  to  occur  when  RDWAIT  attempts  to  read  the  direc- 
tory into  core  at  that  address.  This  causes  the  i/O  error  mechanism  to 
take  the  standard  exit  through  EREXIT  in  IN  I RES  (see  Sections  3.1.10 
and  3.3.2.  1). 

jf  no  such  error  has  occurred,  the  directory  is  read  into  core  via 
RDWAIT  starting  at  the  address  provided  by  FREE.  If. an  i/O  error  occurs, 
the  system  will  automatically  transfer  to  EREXIT  as  predetermined  by 
calling  the  CTSS  procedure  FERRTN  during  the  initialization  phase  of 
Intrex  (Section  3.  1.  10.2).  If  an  end-of-file  marker  is  encountered,  then 
a discrepancy  exists  between  the  directory  length  reported  by  FSTATE 
and  the  number  of  records  attempted  to  be  read  by  RDWAIT.  Transfer,  in 
this  case,  is  automatically  made  to  a local  error  exit  where  an  explan- 
atory message  (1)  is  printed  before  calling  DORMNT  (which  terminates 
the  program). 

When  the  reading  of  the  directory  and  core-stored  message  text  is 
properly  completed,  SETWRD  is  again  called  to  return  the  supervisor 
word  to  its  original  value.  The  Message  Directory  is  then  closed  (but 
not  the  Message  File)  and  the  flag  IN  is  set  which  indicates  that  a 
current  directory  exists  in  core.  The  name  of  this  file  is  saved  in  a 
local  variable  for  possible  future  calls  to  CLOSE  from.  INITYP. 

Finally,  .-  other  flag  , TYPE,  is  set  which  will  be  used  by 

TYPEIT  to  determine  if  the  message  it  is  constructing  is  to  be  output  at 
the  console  (as  opposed  to  written  onto  the  disk). 

Procedures  Calling  INITYP:  / 

DYNAMO,  GET  LIN,  INFO,  LONG,  SHORT,  TYPEIT 

Procedures  Called  by  INITYP: 

FRET,  CLOSE,  GETWRD,  SETWRD,  .FSTATE,  OPEN, 

RDWAIT,  FREE. 

COMMON  References: 

None 


B. 

C. 

D. 


O 
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E.  Arguments : 

NAME  1;  BCD  file  name 

F.  Values: 

None 

G„  Error  Codes: 

None 

H.  Messages: 

1.  "Premature  end-of-file  reading  message  directory.  Computer 
words  read  = N (LOCMES,  integer) 

NOTES'- 

(Note:  The  actual  number  of  computer  words  read  is  given  by  N.  ) 

I.  Length: 

IZOg  or  B 0 j Q words 

J.  Source: 

TYPINT  ALGOL 


/ 
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3 .  1.7,2  T YPEIT 
Purpos  e 

To  output  messages,  both  on-line  and  off-line 
Des  c ription 


TYPEIT  is  a basic  routine  supporting  the  system/user  dialog.  It 
prints  messages  to  users  in  upper  and  lower  case  and  is  calied  with  a 
sequence  of  arguments  that  represent  the  message  to  be  typed.  These 
arguments  can  include  the  following; 

1.  Message  fragments  which  may  be  disk  or  core  stored  identified 
by  symbolic  names. 

Z.  Locally  declared  or  constructed  ASCII  messages  pointed  to  by 
standard  ASCII  pointers. 

3.  Integers  given  by  their  binary  values. 

4.  BCD  variables  specified  by  a single  computer  word  BCD  string 
declared  in  the  calling  program. 

5.  Mode  codes  that  govern  general  features  of  the  output. 

The  following  comments  correspond  to  the  numbers  and  types  of 
arguments  listed  above. 

(1) 


(2) 

(3) 


O 

ERIC 


Message  fragments  may  be  pre-stored  in  core  or  on  the  disk  and 
symbolically  referenced  by  (.BCD,  declared)  labels  in  the  calling 
program.  This  allows  changes  in  the  message  text  without  re- 
compiling the  calling  program.  > 

The  .BCD.  integers  used  as  message  labels  mu^  be  left- jus tified. 

The  labels  may  consist  of  one  to  six  characters  , )the  first  of  which  „ 
must  be  alphabetic.  ^ 

An  ASCII  pointer  to  a locally  declared  . C.  character  string  may  be 
c reated  by  us  ing  the  sub -procedure  LOCMES  (see  Section  3 . 1 . 7 . 3 ) 
which  converts  the  . C.  string  to  ASCII  and  returns  a pointer  that 
may  be  used  as  an  argument  to  TYPEIT. 

Binary  numbers  (within  the  range  ±777777g  = ± 262143 jq)  are  con- 
verted automatically  by  TYPEIT  to  ASCII  codes  and  made  part 
of  the  composite  message  string. 

The  number  -0  may  not  be  typed  since  it  has  a special  meaning. 

(See  special  moj&es.) 


1 13 


3.  1.  7.  2 


-98- 


(4)  . BCD.  variables  which  are  not  message  labels  (such  as  file 

names)  may  be  printed  as  ASCII  strings  by  using  the  sub- 
procedure BC  DA  SC  (See  Section  3.  1.7.4). 

(5)  The  special  modes  control  the  format  of  the  output  produced 

by  TYPEIT.  Before  listing  these  modes  and  their  descriptions, 
we  first  present  information  about  the  output  formats. 

(OUTPUT  FORMATS) 

In  the  standard  mode,  the  composite  message  string  which 
TYPEIT  generates  from  its  arguments  is  printed  on  the  C TSS  con- 
sole according  to  the  following  formatting  rules: 

• 1,  Carriage  return  codes  in  the  message  string  are  changed  to 

space  codes,  except  when  2 or  more  appear  in  sequence.  When 
n consecutive  carriage  returns  appear,  TYPEIT  will  retain 
n-  1 of  them. 

2.  Carriage  returns  are  inserted  after  the  last  word  before  a limit 
of  n characters  is  exceeded  on  a line. 

n = 75  for  2741  or  ARDS 

n = 55  for  Intrex  console 

(These  two  rules  allow  text  formatted  for  any  line  length  to  be 
output  at  a different  line  length.  ) 

3.  A space  is  added  after  each  message  element. 

4.  A carriage  return  is  inserted  at  the  end  of  the  complete  message. 

5.  Wherever  conversion  to  ASCII  is  performed  (by  LOCMES  or 
BCDASC)  all  letters  will  become  lower  case  except  those  pre- 
ceded by  a $. 

(SPECIAL  MODES)  / 

/ 

1.  ASIS:  If  a pointer  or  label  argument  (type  1 or  2)  is  preceded 

by  a -0,  that  message  element  will  not  be  formatted  in  the  ways 
described  by  1 and  2 above,  but  will  bq  printed  "as  is". 

2.  EDGE:  If  a TYPEIT  argument  is  preceded  by  an  argument  con- 

sisting of  the  .BCD.  variable  "EDGE",  then  rules  1 and  3 above 
will  not  apply  but  rule  2 will  apply  when  needed.  Thus,  the 
EDGE  mode  combines  the  carriage  return  controls  of  both  the 
normal  and  the  ASIS  modes  and  is  used  to  output  the  tubular  format 
of  such  catalog  fields  as  authors  or  subjects. 

o.  SPACE  OMISSION:  If  one  or  more  TYPEIT  arguments  are  pre- 

ceded by  an  argument  consisting  of  the  . BCD.  variable  "SMON", 
then  rule  3 will  not  apply  until  either  an  argument  of  . BCD. 
"SMOFF"  is  seen  or  until  all  the  arguments  of  that  call  are  pro- 
O cessed. 
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4.  CONTINUED  CALLS:  If  a call  to  TYPEIT  contains  the  . BCD. 

variable  nCONTn  anywhere  in  the  string  of  arguments,  the 
characters -per-line  counter  is  saved  to  be  used  by  the  next 
call  to  TYPEIT.  The  saved  counter  is  incremented  further 
by  the  new  call.  If  a CONT  argument  is  contained  in  the  new 
call,  the  count  is  again  passed  along  to  the  next  call.  Each 
CONTINUED  call  causes  the  text  produced  by  it  to  be  printed 
terminated  by  a space  unless  the  maximum  line  length  is 
reached.  Thus,  format  modification  4 (ending  c.r)  is  by- 
pas  s ed . 

Note:  If  the  space  omission  mode  described  in  3 above  is  in 

use  in  conjunction  with  the  CONT  mode,  the  space  mode  will 
not  automatically  be  turned  off  at  the  end  ol  the  call  to  TYPEIT 
but  only  by  a SMOFF  argument. 


(MONITOR  FILE  CREATION) 

TYPEIT  ali  ows  the  writing  or  output  onto  a disk  file  (in  ASCII)  ior 
later  or  off-line  printing.  Such  output  may  or  may  not  be  printeci  simul- 
taneously on  the  console.  The  writing  and/or  printing  is  controlled  by 
calling  a sub-procedure  named  INIDSK.  This  procedure  is  described  ir 
Section  3.  1.6.2  which  covers  "Monitor  File  Control". 


A.  Operation:  T YPEIT( ARG1 , ARG2, ARGn) 

As  described  in  Section  3 . 1 . 8 (Interrupt  Controls),  the  occur- 
rence of  an  interrupt,  caused  by  the  user  pressing  the  ATTN  button  to 
halt  the  printing  (or  display)  of  output  or  message  text,  is  not  detected 
by  Intrex  until  the  next  call  to  TYPEIT.  If  the  interrupt  occurs  during 
the  processing  of  a TYPEIT  call,  it  will  probably  be  detected  during  the 

execution  of  that  call.  This  possibility  is  discussed  later  in  this  section 
* * 

(see  PUTS).  * j ' ' 

TYPEIT's  first  task  is  to  check  the  indicator  set  (see  INTONE, 
Section  3.  1.8.  2)  when  an  interrupt  occurs  at  level  one,  that  is,  outside 
of  TYPEIT.  If  this  flag,  INT1(SST.),  is  set,  the  TYPEIT  caft  is  not 
processed.  Instead,  transfer  is  made  to  a section, of  TYPEIT  which  will 
record  the  interrupt  address  and  time  in  the  Monitor  File  and  reset  the 
interrupt  flag.  A CTSS  procedure  named  GETBRK  (Section  3.  3.7.4)  is 
used  to  obtain  the  core  location  whe re  the  prograrlrj  was  operating  when 
the  interrupt  took  place.  ASIDE  (Section  3.  1.6.4)  is  then  used  to  write 


115 


3.  1.  7.  2 


-1  00- 


4 

the  interrupt  message  (1)  into  the  Monitor  File. 

Before'  MONT  IM  (Section  3 . 1 . 5 . 2 ) can  be  called  to  record  the 
time  of  the  interrupt,  TYPEIT  must  ascertain  that  the  Message  File, 
not  the  Guide  File,  is  currently  active.  It  does  this  by  comparing  the 
name  last  saved  by  INTYP  to  the  first  name  of  the  Guide  File.  If  the 
names  match,  VERBOS(POT.)  determines  whether  the  long  or  the  short 
Message  File  and  Directory  should  be  re-activated  by  another  call  to 
INITYP.  If  this  switch  of  directories  is  done  here  in  TYPEIT,  the  flag 
set  by  the  INFO  command  (see  Section  3.  .9.7),  INFOX(SST.),  is  reset  to 
j ut  an  unnecessary  repeat  of  this  action  later  in  the  system. 

Now  MONTIM  is  called  with  one  of  the  arguments  containing  a 
message  label  whose  text  is  "INTI"  to  tag  this  timing-message  in  the 
Monitor  File. 

Transfer  back  to  the  Intrex  supervisor  is  made  by  calling  the  pro- 
cedure LISTEN,  which  is  compiled  with  the  "main  routine"  of  Intrex  in 
the  source  file,  SUPER  ALGOL.  The  function  of  LISTEN  and  its  con- 
nection to  the  supe rvis o r is  described  in  Section  3.  1.8.4. 

If  the  interrupt  flag  is  not  found  to  be  set  upon  entering  TYPEIT,  . 
then  another  indicator,  ASIDEM,  is  examined  to  determine  if  this  call  to 
TYPEIT  is  from  the  procedure  ASIDE  (see  Section  3 . 1 . 6 . 4) . ASIDE  is 
designed  for  entering  messages  into  the  Monitor  File  without  allowing 
them  to  be  typed  on  the  console.  ASIDE  precedes  its  call  to  TYPEIT  by 
a call  to  ASSET,  a small  procedure  within  TYPEIT  which  sets  the  above- 
mentioned  mode  indicator,  ASIDEM.  When  TYPEIT  sees  that  ASIDEM! 
is  set,  it  resets  the  typing  flag,  TYPE.  This  will  later  prevent  TYPASH 
from  being  called  (see  PUTS  below),  thus  inhibiting  console  output. 

If  the  Monitor  File  has  been  "turned  off"  either  by  the  user  through 
a MONITOR  OFF  command,  br  by  resuming  Intrex  in  a "test  session" 
mode  (see  DYNAMO  in  Section  3.  1.3.  1),  then  the  WRITE  flag  will  be  off. 
If  both  WRITE  and  TYPE  are  off,  then  TYPEIT  returns  immediately  to/ the 
calling  program. 

If  TYPEIT  passes  the  abpve  tests,  the  interrupt  level  is  raised  to 
2 by  calling  the  CTSS  procedure  SETBRK  (Section  3.  5.  7. 5)  with  the 
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address  of  ! lie  procedure  INTTWO  passed  as  an  argument,  SETBRK 
allows  the  programmer  to  specify  where  he  wants  control  transferred 
when  the  ATTN  key  is  pressed.  Level  2 will  then  mean  "interrupted 
from  within  TYPEIT". 

TYPE1T  uses  two  counting  parameters,  CHARCT  and  OLDCNT, 
to  keep  track  of  the  number  of  characters  placed  in  the  message  buffer  — 
an  array  within  TYPEIT  which  is  used  to  hold  the  constructed  ASCII  mes- 
sage string  for  outputing.  OLDCNT,  used  primarily  in  the  "CONT" 
mode  where  lines  may  be  constructed  from  multiple  calls  to  TYPEIT, 
is  set  now  to  contain  the  old  contents  of  CHARCT  (from  the  previous 
TYPEIT  call)  before  CHARCT  is  reset  to  zero  to  process  the  present 

call. 

Next,  the  maximum  line  length  is  extracted  from  the  POT  and  de- 
posited into  the  local  parameter  MAXLEN. 

TYPEIT  now  proceeds  to  store  the  arguments  passed  to  it  by  the 
calling  program  into  a fixed  length  array  called  MESLIS.  Up  to  fifteen 
arguments  may  be  given  to  TYPEIT  on  any  single  call.  After  argument 
one  is  placed  in  the  first  location  of  MESLIS,  the  AED  procedure 
ISARGV  (Section  3.6.  1.  3)  is  called  repetitively  to  obtain  the  next  argu- 
ment and  deposit  it  into  the  next  location  of  MESLIS  until  the  argument- 
terminator,  a word  containing  all  octal  7's,  is  found.  The  number  of 
arguments  found  and  stored  is  saved  in  a \oc>\  parameter  named  N.  The 
argument  counter,  I,  us  ed  in  counting  and  indexing  MESLIS  'storage, 

is  then  reset  to  ?,ero  in  preparation  for  counting  the  arguments  as  they  are 
selected  from  MESLIS  and  processed. 

Setup* 

An  array  named  MESSTG  is  used  to  hold  the  assembled  characters 
of  the  message.  Its  starting  address  is  stored  J.n  two  pointers,  MESSPT 
which  will  point  to  the  next  byte  of  MESSTG  to  be  filled  or  examined  and 
PNTPTR  which  will  determine  the  number  of  characters  from  MESSTG 
to  be  typed  on  each  line  of  output. 


3 

ERIC 


This  and  subsequent  headings  relate  to  program  labels  and  are  given 
to  provide  the  reader  with  reference  points  in  the  lengthy  description. 
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The  next  task  for  TYPEIT  is  to  determine  if  indentation  is  neces- 
sary and,  if  so,  supply  the  specified  number  of  spaces.  The  sub-procedure 
INDENT  (Section  3.  1.7.5)  sets  a local  parameter  named  TAB  to  the  num- 
ber of  spaces  desired  for  indentation  as  supplied  to  INDENT  in  its  argu- 
ment. It  also  sets  a flag  named  DENT  to  inform  TYPEIT  that  indentation 
is  required.  If  DENT  is  TRUE  and  CHARCT  is  still  zero,  TYPEIT  will  in- 
sert the  number  of  spaces  indicated  by  TAB  into  MESSTG  via  use  of  the 
string-utility  procedure,  PUT  (Section  3 . 4 . 4 . 3 ) . The  pointer,  MESSPT,  is 
moved  up  after  each  PUT  by  another  utility  procedure  called  INC  1 (Section 
3.4.4.  18)  and  the  character  count,  CHARCT,  is  also  incremented  by  one. 


Next 

The  next  argument  to  be  selected  from  MESEIS  (as  indexed  by 
I)  is  examined  to  determine  its  type.  First,  it  is  tested  to  see  if  it  is  a 
negative  zero  by  calling  an  Intrex  utility  procedure  named  TESTMO 
(Section  3.4.  5.8).  An  argument  of  - 0 means  that  the  ASIS  mode  is  to  be 
used.  Therefore,  the  ASIS  indicator  is  set  and  the  messaL;  buffer  is 
emptied  to  start  the  new  message  on  a new  line.  If  the  buffer  is  already 
empty  (CHARCT  =0),  then  the  character  count  is  raised  to  one  and  the 
message  pointer  is  moved  up  one  nine-bit  byte  to  allow  for  the  insertion  of 
a carriage  return.  TYPEIT  then  transfers  ahead  to  PREND  where  the 
buffer  contents  are  printed  (in  case  previous  arguments  had  stored  some 
text).  This  is  usually  the  area  of  TYPEIT  which  terminates  processing 
o>  the  precede,  e,  but  in  this  case  (ASIS  set)  TYPEIT  will  come  back  to 

SETUP. 

If  the  argument  being  processed  is  not  a - 0,  a second  test  ^ 
made  to  see  if  it  is  an  integer.  The  left-most  eighteen  bits  of  the  w ,rd 
are  checked,  and  if  they  are  not  filled,  the  argument  is  assumed  to  b> 
an  integer,  v/hich  is  then  converted  from  binary  to  ASCIJ,  by  a call  to 
INTASO  (Section  3. 4. 2.  3),  which  returns  a pointer.  The  internal  sub- 
procedure MOVEIN  is  then  called  to  copy  those  codes  into  the  message 
buffer.  TYPEIT  then  transfers  So  "More",  where  the  argument  count  is 
incremented  and  tested  against  N to  see  if  any  more  remain  to  be  proc- 
es  sea. 


o 
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If  the  argument  fails  the  integer  test,  it  is  tested  to  see  if  it  is  an 
ASCII  pointer  to  an  in-core  string  of  characters.  Two  tests  mus  t be 
made  to  distinguish  ASCII  pointers  from  message  labels.  A message 
label  must  begin  with  an  alphabetic  character  to  ensure  that  the  left-most 
octal  digit  will  be  non-zero.  This  means  that,  if  the  argument  is  a mes- 
sage label,  the  sign  bit  and/  or  bits  1 and  2 will  be  a one.  Bits  1 and  2 
are  tested  by  masking,  but  the  sign  bit  must  be  tester  for  a negative  condi- 
tion to  determine  if  the  bit  is  on.  If  none  of  these  1 -i  are  on,  the  argu- 
inent  is  assumed  to  be  an  ASCII  pointer . This  pointer  is  then  passed  to  the 
sub-procedure,  MOVEIN  which  copies  the  characters  pointed  to  into  the 
message  buffer.  Having  done  this»TYPEIi.  transfers  to  Ivlorc  . 

When  any  of  the  bits  0-2  are  one,  the  argument  is  assumed  to  be 
a message  label  or  a special,  BCD 
next  to  determine  if  it  is  a mode. 

If  the  argument  is  the  word 
TYPEIT  transfers  to  "More". 

If  the  argument  is  the  word 
TYPEIT  transfers  to  "More”. 

If  the  argument  is  the  word  SMON,  the  indicator  NOSPAC  is  set 
and  TYPEIT  transfers  to  the  statement  just  beyond  "More",  skipping  the 
logic  that  resets  the  ASIS  indicator. 

If  the  argument  is  the  word  SMOPE,  the  indicator  NOSPAC  is  re- 
set and  TYPEIT  transfers  to  after  "More",  as  with  SMON. 

If  the  argument  is  none  of  these  things,  it  is  assumed  to  be  a mes- 
sage label  and  is  passed  to  GET  LAB  for  lookup  in  the  Message  Directory. 


modG  'code . -A-  series  of  tests  is  made 

CONT,  the  indicator  RUNON  is  set  arid 
EDGE,  the  indicator  DUAL  is  set  and 


Getlab 


GETLAB  compares  the  argument  passed  to  it  by  TYPEIT  with  the 
BCD -coded  labels  in  the  Message  Directory.  The  message  Directory  con- 
tains pairs  of  words  consisting  of  a ’ and  a po  in . ...  'o  the  corre- 
sponding messagi:  text.  When  a rnatchj., -g  T '.l-'P  " fc  »*■  the  directory, 

the  pointer  in  the  next  word  is  extracted,  disected,  and  tested  to  see 
whether  it  is  core  or  disk-stored.  If  it  is  a core-stored  message,  the 
text  is  at  the  end  of  the  directory  and  it  is  distinguished  by  the  presence  of 
one  in  bit  2 of  the  pointer.  The  address  portion  of  the  pointer  contains  the 
relative  location  or  "offset"  of  the  text,  either  within  the  Message  File  or 
within  the  core-stored  directory.  If  it  is  core-stored,  this  relative 

address  is  deposited  into  a paf  am  etc  r eoatnon  to  I i PEIT(REL)  and  the 

i i n 
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top  of  the  directory  storage  area  is  used  as  the  base  address  of  the  mes- 
sage text.  The  byte  address  and  length  are  contained  in  the  pointer  which, 
minus  the  bit  which  flagged  it  as  "core-stored",  is  returned  as  a value  to 


TYPEIT. 

If  the  pointer  indicates  a disk-  stored  message  ( ze  *o  in  bit  2), 
common  buffer  three  is  used  as  the  base  address  of  the  message  text,  and 
the  offset  or  relative  address  (REL)  is  set  to  0.  One  full  record  (432 
words)  of  the  Message  File  is  read  into  this  buffer,  starting  at  the  file 
address  found  in  the  address  of  the  pointer.  Since  no  message  or  Guide 
Section  should  contain  more  text  than  can  be  contained  in  one  record,  this 
single  read  should  be  sufficient  to  put  the  entire  message  in  core.  If  the 
length  (number  of  characters)  in  the  decrement  shows  that  there  is  more 
than  one  record-full,  then  the  length  is  truncated.  This  truncation  is  in- 
dicated to  the  calling  program  (most  likely,  INFO)  by  placing  a 1 in  the 
first  argument  of  the  call.  The  text  pointer  is  then  returned  as  a value 
from  GET  LAB  to  TYPEIT. 


If  the  label  passed  to  GETLAB  is  not  found  in  the  directory,  an 
error  message  (4)  is  printed  via  the  procedures  LOCMES  and  TYPASH. 

An  exceptional  case  is  made  when  the  call  to  TYPEIT  is  from  the  proce- 
dure INFO,  indicated  by  the  fact  that  the  first  name  of  the  Message  File 
will  be  GUIDE.  In  this  case,  no  message  is  typed  but  the  first  argument 
of  the  call  to  TYPEIT  is  changed  to  zero.  In  both  cases,  TYPEIT  trans- 
fers. ahead  to  the  final  clean-up  area,  "Frit",  which  terminates  this  calx. 

U pon  successful  return  fro m G E T LA B , the  base  addzess  a nd  off 
set  are  added  and  inserted  into  the  address  portion  of  the  pointer  pro- 
vided by  GETLAB.  This  <v  iplet.es  the  text  pointer  which  is  now  passed 
to  the  sub-procedure  MOVEIN,  wnich  copies  the  text  into  the  message 
buffer  at  the  point  dictated  by  MESSPT.  TYPEIT  then  transfers  to  " lv.  >re' 


' love in 

This  sub-procedure  is  called  by  TYPEIT  whenever  a stung  of 
ASCII  characters  is  ready  to  be  copied  into  the  message  buffer.  A 
pointer  to  the  string  is  passed  as  an  argument  to  MOVEIN,  which  saves 
it  in  a local  variable  named  DATAPT  before  beginning  to  process  the 
codes.  The  decrement  of  the  pointer,  containing  the  number  of  codes  to 
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be  transierred,  is  also  extracted  and  saved  in  parameters  IvlT  and 
NCHARS.  These  two  counts  will  control  the  deposit  of  characters 
into  the  message  buffer  to  prevent  its  overflow.  If  more  characters  are 
about  to  be  added  to  the  buffer  than  it,  can  hold,  then  MT  is  reduced  to  a 
number  within  the  bounds  of  the  buffer  size.  MT  is  then  used  as  the 
terminating  value  of  a rather  large  loop  which  stores  MT  characters 
into  the  message  buffer.  When  this  group  of  ch£iracte~s  has  been  de- 
posited (and  possibly  emptied  via  CHKEND),  NCHARS  is  reduced  by  MT 
and  the  new  value  of  NCHARS  is  deposited  back  into  M^T  . If  NCHARS  is 
not  yet  reduced  to  zero,  MOVEIN  transfers  back  to  the  test  above,  which 
determines  if  NCHARS,  plus  the  current  CHARCT,  is  greater  than  the 
capacity  of  the  message  buffer.  This  loop  is  repeated  until  NCHARS  is 
reduced  to  zero,  at  which  time  MOVEIN  returns  to  TYPEIT. 

This  is  a broad  overview  of  how  MOVuI'I  cycles  through  the  char-  ■ 
acters  to  be  added  to  the  message  buffer  and  inserts  them.  Room  to  in- 
sert the  next  batch  is  ensured  by  the  calls  to  CHKEND  which  are  made  at 
least  at  the  end  of  each  batch- insertion,  and  sometimes  more  often  as  ex- 
plained below  . CHKEND,  described  later  in  this  section,  checks  to  see 
if  more  characters  have  been  stored  in  the  message  buffer  than  the  length 
of  one  output  line  (as  determined  by  MAXLEN).  If  this  is  the  case,  a 
carriage  return^  inserted  at  an  appropriate  word  break,  and  that  amount 
of  text  is  output".  The  remaining  characters  of  the  message  buffer  are 
then  shifted  down  to  the  start  of  the  buffer,  making  room  for  more.  A de- 
tailed  description  of  the  characte  -storing  loop  now  follows: 

First,  the  utility  procedure,  GET  (Section  3.4.4.  1)-  is  called  to 
take  the  next  character  from  the  string  being  deposited,  as  pointed  to  by 
DATAP  i.’,  and  to  leave  that  character  in  a lex  al  word  CODE.  It  CODE  is 
a carriage  return,  it  is  changed  to  a space  unless  the  spccia*  mode  AoIS 
or  1 4GE  is  in  use  or  the  multiple  carriage  return  nag,  CA RMU L>,  is  set. 
If  the  can  age  return  is  changed  to  a space,  CARMUI  is  set  in  case  more 
carriage  returns  follow.  If  the  code  .s  not  a carriage  return,  CARMUL  is 
, et . 

~p1  haracter  in  CODE  is  now  inserted  at  the  message  buffer  by 
the  utility  procedure  PUT  (Section  3 . 4 . 4 . 3 ) at  the  byte  pointed  to  by 
MESS  FT The  character  count,  CHARCT,  is  incremented  by  one. 
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If  the  code  is  not  a carriage  return,  the  two  pointers  MESSPT  and 
DATAPT  are  both  updated  to  the  next  byte  b ' the  .iility  procedure  INC  1 
(Section  3.4.4.  Ib),  and  one  cycle  through  the  loop  is  completed.  If,-  on 
the  other  hand,  the  code  is  a carriage  return,  then  cne  of  the  special 
mo'  :s  may  be  assumed  to  be  on.  If  the  mode  is  EDGE,  indicated  by  the 
DUAL  indicator  being  set,  or  if  CARMUL  is  set,  then  the  message  buffer 
checking  procedure,  CHKEND,  is  called  to  see  if  any  previous  carriage 
returns  need  to  be  inserted  earlier  in  the  buffer  because  of  extension  be- 
yond the  maximum  line  length.  If  neither  oi  the  above  modes  are  in  use, 
then  the  n.SL3  mode  must  be.  This  mode  is  unconcerned  about  line  lengths 
or  about  inserting  additional  carriage  returns.  The  current  number  of 
stored  characters  is  placed  in  the  decrement  of  PNTPTR  and  the  output 
sub-procedure,  PUTS,  is  called  to  r^int  and/or  write  into  the  Monitor 
Pile  the  contents  of  the  message  buffer  up  that  point.  PUTS  (described, 
below  after  CHKEND)  will  empty  the  buffer.  Therefore,  upon  return  to 
MOVEIN,  the  message  buffer  pointer  MESSPT  is  reset  to  the  first  byte 
of  the  buffer  and  the  character  count  is  reset  to  zero.  If  the  indentation 
flag  DENT  is  set,  TAB-2  spaces  are  deposited  into  the  buffer  via  PUT. 
(The  first  line  of  output  in  any  TYPEIT  call  is  indented  two  spaces  less> 
than  are  subsequent  lines). 

Finally,  DATAPT  is  updated  to  the  next  character  in  the  input 
string  and  the  cycle  through  the  storage  loop  is  complete. 

When  ail  the  characters  are  stored,  the  procedure  CHKEND  is 
called  in  case  the  buffer  has  been  filled  to  the  point  where  one  or  more 
output  lines  should  be  flushed. 

Chken-d 

The  main  task  of  CHKEND  is  to  test  for  the  possibility  of  the  mes- 
sage buffer  containing  more  output  characters  than  are  allowed  n one 
printed  line.  This  check  is  made  by  comparing  CHARCT  wit!  V1AXLEN. 
When  CHARCT  is  greater  and  the  ASLS  flag  is  not  set,  then  CHKEND 
must  find  a place  to  terminate  the  one  and  output  it.  This  is  not  done 
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when  the  ASIS  mode  is  in  ,e  because  no  new  carriage  returns  are  allowed 
in  that  mode  . 

If  the  character  count  has  not  yet  reached  a line  lc.isth,  a space  is 
inserted,  via  PUT,  into  the  next  byte  of  the  buffer,  to  separate  message 
components.  This  necessitates  updating  the  buffer  pointer  MESSPT  and 
incrementing  the  character  count  CHARCT.  This  space  is  not_  added  if 
the  NOSPAC,  DUAL,  or  CARMUL  flag  is  set.  In  all  cases  where  CHARCf 
is  less  than  MAXLEN,  an  early  exit  is  - de  from  CHKEND. 

When  the  line  length  has  been  exce.  -fid  (CHARCT  > MAXLEN)  the 
function  of  CHKEND  is  less  trivial.  It  must  scan  back  over  the  mes- 
sage buffer  looking  for  a space  code  (or  hyphen)  which  might  provide  an 
approg  iate  place  to  terminate  the  line.  The  distance  it  will  look  back  de- 
pends on  whether  or  not  CONT  (continued  line)  tR ode  is  being  used.  In 
CONT  mode,  the  scan  may  go  all  the  way  back  through  the  string  of  char- 
acters inserted  by  the  current  call  to  TYPEIT,  if  necessary.  If  not  in 
CONT  mode,  the  scan  is  ended  about  one-fifth  of  a line  from  the  begin- 
ning of  the  buffer.  As  soon  as  a word  delimiter  is  found,  the  number  of 
characters,  K,  scanned  thus  far  is  subtracted  from  the  number  in  the 
buffer,  and  the  difference  is  tested  to  see  if  it  is  still  greater  than 
MAXLEN.  If  so,  the  scan  continues  back  toward  the  beginning  of  the 
buffer,  looking  for  another  space.  If  the  allowed  scanning  distance  is 
covered  without  finding  a space,  then  a carriage  return  must  be  in- 
serted in  a less  appropriate  place.  In  the  CONT  mode,  where  the  scan 
has  moved  the  message  pointer  all  the  way  back  to  the  front  of  the  buffer, 
the  problem  is  handled  rather  simply.  PNTPTR,  which  controls  the  out- 
put, is  temporarily  changed  to  point  to  a single  carriage  return.  PUTS 
is  then  called  to  output  the  carriage  return,  PNTPTR  is  r^et  to  point 
to  the  be  inning  of  the  message  buffer,  and  both  CHARCT  and  MESSPT 
are  reset  to  reflect  only  the  current  contents  of  the  buffer. 

In  other  than  CONT  mode,  a line  break  must  be  made  in  the  midst 
of  the  unusually  long  string  of  characters  containing  no  word  delimiters. 
The  decrement  of  PNTPTR  is  set  to  put  out  one  full  line  of  text  and  PUTS  is 
called  to  output  it.  Then  the  carriage  return  is  put  out  as  described  above 
for  the  CONT  mode.  The  adjustment  of  the  pointers  and  counters  this 


tune  is  much  more  < umplicated, 
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been  moved  back  almost  to  the  front  of  the  oufier,  is  movea  up  again 
to  the  next  non-output  character.  Then  K,  which  reflects  the  number 
of  characters  scanned  in  the  search  for  a place  to  put  the  carrif  e return, 
is  adjusted  to  vhe  number  of  non- output  codes  left  in  the  buffer.  It  is 
then  usee  i > set  the  decrement  of  MESSPT  which,  in  turn,  controls  a 
call  to  COPY  to  move  the  remaining  characters  down  to  the  front  of  the 
buffe  . 

This  same  push-down  technique  is  used  when  a word  delimiter  is 
found  during  the  scan  back.  Of  course,  if  the  delimiter  is  located  at  a 
position  in  the  buffer  still  beyond  a maximum  line,  then  the  scar  is  con- 
tinued. When  a good  position  is  found,  the  delimiter  is  replaced  by  a 
carriage  return  via  PUT.  The  decrement  of  PNTPTR  is  then  set  to  the 
number  of  characters  from  the  front  of  the  buffer  to  this  point,  and  PUTS 
is  called  to  output  this  amount.  He.  , as  mentioned  above,  K is  used 
to  set  up  MESSPT  for  the  transfer  of  the  remaining  text  to  the  front  by 
the  procedure  COPY  (Section  3 . 4 . 4 . 9) . At  this  point,  the  message  buf- 
fer pointers  are  reset  to  the  front  of  the  buffer.  MESSPT  is  t u ad- 
vanced K bytes  to  the  next  available  byte  for  incoming  characters  and 
CHARCT  is  adjusted  to  reflect  the  length  of  the  current  string. 


Upon  completion  of  any  of  the  above  described  oid  u.  - push  - down 
operations,  CHKEND  transfers  back  to  its  opening  test  the  current 

length  of  the  buffer  contents.  It  is  possible  that  several  such  cycles  will 
be  necessary  before  the  remaining  text  is  less  than  one  output  line  in 
length. 


On  : detail  not  mentioned  in  the  above  description  is  the  possibility 
of  indentation  after  each  line  is  output.  Whenever  a carriage  return  is 
put  forth,  the  DENT  flag  rnuit  be  tested.  J-f  the  flag  is  s«'t,  the  proper 
,'ridenf ation,  as  prescribed  bj  TAP,  is  output  by  pointing  PNTPTR  at  ■> 
string  of  preset  spaces  and  / llinj,  PUTS.  This  makes  it  necessary  to  in- 
clude TAP  in  any  computations  involving  the  character  counts. 

Puts  / 


The  basic  function  of  PUTS  is  to  u^e  the  ASCII  pointer  in  PNTPTR 
to  output  the  specified  number  of  characters  on  the  consol  (if  TYPE  is 
pet.)  .md  onto  the  d ak  (if  WRITE  is  set.),  S ■ & PUTS  is  the  Imager  for 
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output,  it  is  a most  appropriate  - 'est  for  *>««•»!>“•  A" 

interrupt  by  the  Intrex  user  while  ^VQ^Ssin§  iS  being  Cd-rrleG  on 
within  TYPE1T  will  cause  control  ^ W seht  to  the  procedure  iN  - 1 Vl  ° 
(Section  3.  1. 8.  3),  where  the  Syst^V  ^te  TnOle  flag , INT £. , will  be  set. 
PUTS  first  tests  this  flag  before  at to  produce  any  output.  If 
the  flag  is  set  , it  is  reset  and  PUtf*  ?r°^ds  to  reset  the  parameters 
of  TYPEIT,  such  as  the  character  and  mode  indicators.  Any 

free  storage  used  by  the  special  c<Ar*^n  routines  associated  with 
TYPEIT,  viz., LOCMES  and  i*  returned  by  calling  the  sub- 

procedure  FRETIT  (described  The  address  of  the  interrupt 

point  is  now  obtained  by  calling  the*  £ Ptocedur-  GETBRK  (Section 

3 -.7.4).  This  address  becomes  °*  lhe  mes  age  (2)  written  into 

the  Monitor  File  by  a call  to  ASIDE  (^on  3.  1.6.4).  The  procedure 
MON  TIM  (Section  3.  1.5.  2)  is  th^  with  an  argument  containing 

a label  of  "INT2"  to  tag  the  timing in  the  Monitor  File.  As  ?n 
the  ca«e  of  interrupts  at  level  one,  is  made  to  the  LISTEN  proce- 

dure of  the  supervisor. 

If  no  interrupt  has  set  INTzV^K  *>UTS  checks  to  see  if  it  should 
write  the  output  text  onto  the  disk  ^\/  ^*a*hining  the  WRITE  fLag 
(set  and  reset  by  INIDSK,  descrU^  Seetion  3.  1.6.2).  If  WRITE  is 
set,  the  CTSS  procedure  FSTATE  3.5.3.  3)  is  called  to  de- 
termine if  the  Monitor  File,  whoA  is  found  in  the  POT,  is  open 

for  writing.  If  it  is  not,  then  the  is  °Pened  by  a call  to  BFOPEN 
rHsection  3.5.2.  1).  -he  message^!  Word  currently  pointed  to  by 

MESSPT  is  saved  in  a local  stora^  ^d^ess  SAVEND  , and  the  pointer 
itself  is  saved  in  another  address  ^UlAPT.  V is  prepares  for 

the  following  process  of  zeroing  fb6  bytes  of  the.'last  buffer-word 

to  be  written  which  are  not  induct  ^ output.  These  bytes  must  be 

blanked  because  only  whole  wonb  V l,\  written  onto  the  disk  via  the 

CTSS  procedure  BFWRIT  (Sectio/1  5*  ^ The  tag  of  MESSPT  is 
used  to  determine  how  many  remain  in  the  last  word. 

PUT  is  called  to  deposit  a null  .A  °f  theSe  bTteS  as  Pointed  to  by 

i IULLPT . The  word  will  be  ^ original  contents  at  the  end 

of  PUTS'  output  tasks. 
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XHe  number  of  computer  words  to  be  written  is  computer  by 
dividing  the  number  of  characters  in  the  decrement  of  PNTPTR  by 
four.  If  the  call  to  BFWRIT  results  in  an  l/O  error,  transfer  is  made 
to  an  error  exit  within  TYPEIT.  Here,  an  error  message  (3)  is  primed 
(via  LOCMES  and  TYPASH).  the  A-core  subsystem  control  word  is  set 
to  STOP  by  a call  to  SET WRD,  and  processing  is  terminated  by  calling 
DORMNT. 

If  writing  onto  the  disk  is  successful  (or  not  called  for)  the  TYPE 
flag  is  examined.  If  this  flag  is  set,  the  console  typing  procedure 
TYPASH  is  called  with  an  argument  containing  PNTPTR.  This  procedure, 
described  in  the  following  section,  will  convert  the  ASCII  codes  in  the  mes- 
sage buffer  to  12-bit  BCD  codes  and  cause  them  to  be  printed  on  the  type- 
writer console  or  displayed  on  the  CRT. 

Before  PUTS  returns,  the  last  buffer  word  to  be  written  is  re- 
stored so  that  no  characters  will  be  omitted  from  the  next  group  to  be 
output. 

More 

As  each  argument  to  TYPEIT  is  processed,  a check  must  be  made 
to  see  if  any  unprocessed  ones  remain  in  the  storage  area,  MESLIS.  Most 
completed  arguments  will  cause  a transfer  directly  to  "More  , where  the 
first  step  is  to  reset  the  ASIS  - mode  flag  (becaus'p  ASIS  mode  can  apply  to 
only  one  argument  at  a time).  Mode  arguments,  which  produce  no  actual 
text,  are  finished  by  transferring  past  this  resetting  of  ASIS  directly  to 
the  inc  rementatioji  of  the  argument  counter  I.  Afjte  r I is  increased  by 
one,  it  is  compared  to  the  argument  total  in  N.  If  I is  still  less  than 
N,  TYPEIT  transfers  back  to  "Next"  to  fetch  the  next  argument. 


Prend 

The  details  of  pointer  end  counter  adjustments,  mode  tests,  and  the 
resulting  switch-  --1  branches  of  logic  in  this  area  of  TYPEIT  have  grown 
so  complex  as  rl  .il  evolved  into  an  almost  all-purpose  output  device, 

that  any  attempt  at  a detailed  explanation  would  be  very  involved.  A better 
approach  might  be  to  present  a more  general  explanation  of  the  operation. 
First  , the  message  buffer  pointer  MESSPT  is  adjusted  back  one  byte  or 
not,  depending  on  whether  or  not  a space  was  added  after  the  last 

a reum-nt  was  proces  sed  andtlie  pointer  was  moved  up  t<  the  next  availab'  ■ byte, 
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In  some  i-nodes,  v . h as  NOSPA C mode,  this  is  not  done . 

Second,  a carriage  return  is  added  to  the  current  message  butter 

to  complete  the  output  from  this  use  of  TYPEIT,  unless  toe  RJNON  -ag 
indicates  that  CONT  mode  is  being  used.  In  any  case,  "he  current  c in- 
tents of  the  buffer  are  output  by  setting  PNTPTR  to  the  length  dictated 
by  CHARCT  (minus  any  previous  continuation  characters  counted  by 
OLDCNT)  and  calling  PUTS. 

Next,  un'  ess  in  CONT  mode,  the  NOSPAC  flag  is  reset  to  FALSE, 
and  the  character  counters  are  reset  to  zero.  In  CONT  moue,  these 
parameters  are  not  reset  but  RUNON  is  reset  to  FALSE. 

Now  the  ASIS  flag  is  tested  and,  if  found  to  be  set,  argument 
counter  I is  incremented  and  compared  to  N . If  I is  still  less  than  N, 
TYPEIT  transfers  back  to  "Setup"  to  pr  pare  the  next  argument  for  pro- 

cessing . 

If  ASIS  is  FALSE  or  all  arguments  have  been  processed,  then 
TYPEIT  is  ready  to  terminate  its  task.  Before  wrapping  up,  hov/e\  e r , 
it  examines  the  level-two  interrupt  flag  again  to  see  if  an  interrupt  has 
occurred  since  the  last  call  to  PUTS.  If  INT2(SST.)  is  set,  transfer  is 
made  to  the  top  of  PUTS  where  the  action  previously  described  is  taken. 
Otherwise,  TYPEIT  finishes  by  (1)  resetting  the  ASIS  and  DUAL  (EDGE 
mode)  flags;  (2)  checking  ASIDEM  and,  if  set,  resetting  it  and  setting 
the  TYPE  flag  which  it  had  previously  made  FALSE;  (3)  calling  the  sub- 
procedure  FRETIT  to  return  any  free  storage  used  by  the  conversion 
routines  LOCMF.S  and  BCDASC  (see  below);  and  (4)  calling  the  CTSS 
procedure  SAVBRK  (Section  3.  5.7.6)  to  lower  the  interrupt  level  to  1. 

F retit 

The  BC  D-  to- ASCII  conversion  procedure,  ASCITC,  used  by  both 
LOCMES  and  BCDASC,  uses  free- storage  to  > del  the  ASCII  characters 
it  produces.  The  pointers  to  these  areas  are  saved  by  those  routines  in 
anarray  called  FREPTS  (declared  within  TYPEIT).  FRETIT  then  ex- 
amines the  index  of  this  array,  P,  to  s.-e  if  any  pointer:  have  been  sax  ed 

since  the  last  call  to  TYPEIT.  If  P is  non-zero,  the  pointers  are  ex- 
tracted from  FREPTS,  one- by- one,  and  the  area  pointed  to  is  returned 

1 11  ttdttt  /Section  3 4 1.2).  When  all  areas  have 

to  free-storage  by  calling  FRET  (Section  s . s . ;• 
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been  returned,  P is  reset  to  zero  and  FRETli  returns  to  TYPEIT. 


B.  Procedures  Calling  TYPEIT: 

ANDER,  AND.  , AUTHOR,  CHKNUM,  CEP,  CONNAM, 

DROP,  ERRGO , EVAL,  EXIT,  FSO,  GETFED,  GETLIN, 
IFSINT,  IF  SRC  H,  INFO,  IN  IF  IX  , IN  I VAR,  IN.,  LISFIE, 

LIST,  EISTSE,  MONTIM,  MONTOR,  NAME,  NUMBER, 

OUT.,  PREP,  QUIT,  RANGE,  REND,  SEARCH, 

SEEMAT,  SHORT,  SIGNIN,  SIGN2,  SPCTRN,  SUBJ., 
SUMOUT,  SUPER,  S.T,  TABENT,  TABEE,  TIME,  TITEE,  USE. 


C.  Procedures  Called  by  TYPEIT: 

ASIDE,  BCDASC,  BFOPEN,  BFWRIT,  COPY,  DEC  I, 

DORMNT,  FRET,  FSTATE,  GET,  GETBRK,  INC, 
IN  C 1 , INITYP,  INTASC,  ISARGV,  LISTEN,  LOCMES, 
MONTIM,  OCTASC,  PUT,  PUTS,  RDWAIT , SAVBRK, 
SET  BRK,  SET  WRD,  TESTMO,  TYPASH. 


D. 


Common  References 


Name 
INT  1 (SST  . ) 
MAXC  HR(  POT  . ) 
V E RBOS  ( PO  T . ) 
DFSNl(POT.) 
DFENlfPOT.) 
INFOX(SST .) 

ST  M ( POT  . ) 
COMBF3(  POT  .) 
INT 2(SST  . ) 


Meaning 

inter,  level-one  flag 
max.  line  length 
dialog  mode  indicator 
Message  File  (short) 
Message  File  (long) 
INFO  command  flag 
system  time  monitor 
common  buffer  three 
inter,  level-two  flag 


Inte  r- 

rog  ated  ? 
x 

X 

X 

name  one  x 
name  one  x 

array 

x 

X 


Cha  ng  ed  ? 
x 


x 

X 

X 


E „ Arguments:  (any  of  the  following  types) 

integer  (treated  as  decimal  integer),  ASCII 
pointer,  BCD-codes  label  or  mode  code 


F. 

H. 


Value s : 

None 

1.  "Interrupt  at  level  1 at  location  . . ."(LOCMES) 

2.  "Interrupt  at  level  2 at  location  . . ."(LOCMES) 

3.  "Error  in  writing  disk  output  file  . ."(LOCMES) 

4.  " Label  in  call  to  Typeit  not  found 

in  directory  ."(LOCMES) 


I.  Length: 

17428  or  9941q 
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J.  Source: 

TYPIN'!  ALGOL 

K.  Files  Referenced: 

MONOOn  F ILF  (1<_  n < 10) 
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3.  1,7.3  LQCMES 
Pur.pos  e 

To  generate  a "local’'  ASCII  message  string 
De  s c ription 

When  no  disk-stored  or  core-stored  message  exists  to  provide  the 
desired  message  text,  LOCMES  provides  a convenient  means  of  gener- 
ating an  in-core  ASCII  string  and  providing  a pointer  to  this  string  which 
can  be  passed  on  to  TYPEIT  for  outputting. 

A.  Operation;  PTR  = LOCMES  (.C.  /STRING/) 

The  AED  language  provides  a means  of  declaring  variable- length 
strings  of  BCD-coded  characters.  This  facility,  known  as  the  . C.  con- 
vention, is  activated  by  the  presence  in  the  source  code  of  the  characters, 

. C.  „ The  next  character  must  be  a space  and  the  character  following  the  space 
will  be  considered  by  AED  to  be  the  string  delimiter,,  All  characters  be- 
tween this  delimiter  and  the  next  appearance  of  the  same  delimiter  will 
be  set  up  by  AED  as  packed  (six  codes  to  a computer  word)  BCD  char- 
acter codes.  The  number  of  such  codes  is  stored  in  the  decrement  compo- 
nent of  the  address  immediately  before  the  string.  A pointer  to  the  ad- 
dress of  the  first  character  is  generated  by  AED  and,  in  this  case,  used 
as  the  argument  in  the  call  to  LOCMES. 

LOCMES  extracts  the  character  count  from  the  word  before  the 
string  and  inserts  it  into  the  decrement  of  a local  pointer,  BCDPTR. 

The  address  of  the  string  is  copied  from  the  argument  to  the  address  of 
BCDPTR,  which  is  then  passed  to  the  utility  conversion  procedure  ASCITC 
(Section  3. 4.2.9)*  This  procedure  returns  a pointer  to  the  converted 
ASCII  string.  The  converted  codes  will  be  all  in  lower  case  unless  pre- 
ceded by  a $ in  the  . C,  string.  (One  $ makes  one  ASCII  character  upper 
case. ) 

vSince  the  ASCII  codes  are  stored  by  ASCITC  in  an  area  obtained 
from  free-storage,  the  pointer  to  this  string  is  saved  in  an  array  local  to 
both  TYPEIT  and  LOCMES  named  FREPTS,  The  index  of  this  airray  is 
another  parameter,  P,  shared  by  TYPEIT.  It  is  incremented  by  LOCMES 
at  each  call  and  reset  to  zero  at  the  end  of  a TYPEIT  execution.  This 
allows  multiple  uses  of  LOCMES  as  arguments  to  TYPEIT  and  prevents 
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the  waste  of  free- storage  by  enabling  TYPEIT  to  continually  return  these 
areas  after  they  have  been  used. 

B.  Procedures  Calling  LOCMES: 

ANDER,  IF5INT,  IFSRCH,  INIDSK,  IN  IF  IX,  INIVAR,  LISTEN. 
MONTOR,  POT.,  PREP,  REND,  SHORT,  STRCH,  5UMOUT, 
TABLE,  TYPEIT. 

C.  Procedures  Called  by  LOCMES: 

ASCITC 

D.  COMMON  References: 

N one 

E.  Arguments: 

.C.  /STRING/:  .C.  Pointer 

F.  Values: 

PTR  = ASCII  Pointer 

G*  Error  Codes: 

None 

H . Me  s s ag  e s : 

None 

I.  Length: 

41g  or  33^^  words 

J.  Source; 

TYPINT  ALGOL 

K.  Files  Referenced; 

None 


t 
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1.7.4  BCDA5C 
jpu  rpos  ej 

To  convert  a BCD  word  to  ASCII 
De sc  r lption : 

Names  of  disk  files  and  other  CTSS  oriented  items  are  expres  s ed  in  six-bit 
BCD  codes  packed  into  a single  computer  word.  These  are  generally  de- 
fined and  created  by  . BCD.  declaration  in  the  AED  source  code  of  the 
various  Intrex  modules.  BCDASC  provides  a convenient  method  a con- 
verting s uoh  a BCD  string  into  ASCII  where  it  can  be  printed  by  TYPEIT. 

A.  Operation;  PTR  = BCDASC(BCDVAR) 

The  BCD  word  which  was  preset  by  the  AED  compiler  is  passed  to 
BCDASC  as  an  ; rgument.  BCDASC  creates  a pointer  to  this-  w rd  with  a 
length  of  six  (maximum  number  of  BCD  codes  in  one  word)  in  the  decre- 
ment. This  pointer  is  passed  to  ASCITC  which  converts  the  codes  to  lower 
case  ASCII.  Again,  as  in  LOCMES  above,  the  pointer  to  the  ASCII  string 
is  stored  in  the  array  named  FREPTS  for  return  of  free-storage  later  by 
TYPEIT. 

Procedures  Calling  BCDASC; 

DROP,  ERRGO,  IFSRCH,  LISFIL,  LIST, 

LISTSL,  MONTOR,  QUIT,  SUMOUT,  USE 

Procedures  Called  by  BCDASC: 

ASCITC 

COMMON  References; 

N o ne 

A rguments : 

BCDVAR;  a BCD-coded  integer 
Values : 

Ptr  = ASCII  Pointer 

Error  Codes; 

None 

Messages : 

None 


B. 


C 


E. 


G. 


H. 


O 

ERIC 
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I. 


Length: 


3I8 


>r  l 


10 


* els 


J.  Source: 

TYPIN'! 


K.  Files  Referenced: 
None 
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: !i  thu  p it.i 
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T C S C T\  l Li  b 


b ie  pup  k oni r vli 


■ ; ■ it  - •. . u\  Int  rex  is  du  - 
> i t h is  I u r m a t i u.« r.t i ul 


is  the  Variable  amount  ut'  indentation  iron:  the  Lett  margin.  The  c invention 
presently  employed  is  to  indent  the  first  line  of  a field  tw,.  spates  and  sub- 
xeouent  lines,  it  any.  four  spa, es.  The  IN  DM  NT  procedure  is  designed 
to  a,  , ept  an  indentation  setting  ( TAN)  and  eommunieate  its  value  to 
V Flail  by  way  of  a i ommuniy  shared  variable. 

A.  Operation:  IN  ! j E NT(  M ) 

L iu-  pro,  edure  INDENT  is  compiled  in  the  same  file  as  the  mam 
tvnmv  .mitre!  pro,  edure  IVl’KIT,  allowing  it  to  share  the  same  integer 
■ T , h,  r 1 1 . .•  ns  . IN  DEN  r takes  the  , ontents  of  the*  argument  M and  copies 
it  into  the  local  parameter  , ailed  lAli.  It  I A B is  non-r.ero,  the  number 
it  , ont  a i ns  will  be  the  -number  ol  spaces  which  TYPEIT  will  insert  at  the 
start  of  each  new  tine  of  output  (except  the  first  line  produced  by  the  tall, 
which  will  be  two  less).  In  this  case,  a local  ilug  (DE-NT), 
to  TYPKIT,  will  be  set  to  TRUK. 

If  TAB  is  zero,  the  indentation  mode  is  turned  oft  by 

DENT  to  FA  USE. 

3.  Procedures  O a 1 1 i ng  IN  D Is N 1 . 

FSO,  FSOCLN 

C.  Procedures  Called  by  INDENT: 

None 


also  common 


etti  ng 


D.  COMMON  References: 

None 

E.  Arguments: 

M:  integer 

F.  Values: 

N one 
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G.  Error  Codes: 

No:,' 

LI . Xles  s a^es  : 

None 

I.  Length: 

or  18,,.,  words 
lS  1 0 

J.  Source: 

TV  PINT  ALGOL 

K . Piles  Kelt*  renc  e cl : 

None 


L3o 

o 

ERIC 


IN  CHAR 


3 . l.T.o 

Purpose 

T incren'-.ent  character  counter  (TYPEIT) 
Des  e ription  : 


■utpui 


The  procedure  SPC  i RX  (section  o.Z.B.e)  cwnir^li: 
catalog  fields  on  the  special  Intrex.  console  and  allows  the  display  of 
special  characters,  such  as  Greek  letters  and  superscripts  and  subscripts. 
This  procedure  must  produce  func'.i*  n codes  for  changing  type  fonts,  etc. 
which  are  mit  output  via  i YPEIT.  they  <ire  prod  need  b\  ’.ailing  a C TS3 
procedure  named  WRHIGH  (Section  i.  i.B.P).  Sine  e these  codes  a re 
counted  in  the  character  counting  logic  ol  the  Vunun  b 3 Cl  , they  must  also 
be  counted  by  the  TYPEIT  line  control  counter.  INCHAR  provides  SPCTRN 
with  the  necessary  access  to  TYPEIT 's  counter,  CHARCT. 

A.  Operation:  1NGHAR(N) 

The  a rgument,  N , is  added  t c the  local  parameter,  Cl tA  RG  I , 
which  is  c ommon  with  TYPEIT.  A test  of  the  new  size  of  CHARCT  is  then 
made  to  determine  if  the  maximum  line  length  has  been  exceeded.  If  it 
has,  a carriage  return  is  put  out  via  a call  to  the  1 Y P hi  I sub-procedure, 
PUTS.  In  this  case,  CHARCT  is  reset  to  the  number  found  in  the  argu- 
iTient  N. 

If  the  DENT  flag  is  set,  meaning  indentation  is  required  after  each 
carriage  return,  then  the  PUTS  procedure  is  again  used,  this  time  to  pro- 
duce the  required  number  of  spaces  of  indentation.  This  number,  speci- 
fied by  the  parameter,  TAB,  is  then  added  to  CHARCT,  which  counts  the 
accumulated  total  of  characters  in  the  line,  and  to  OLDCNT,  which  con- 
tains the  number  of  characters  in  this  line  previously  put  out  in  calls  to 
TYPEIT  v'hich  use  the  continuation  (CONT)  mode. 

B.  Procedures  Calling  INCHAR: 

SPCTRN 

C. 


O 

ERIC 


Procedures  Called  by  INCHAR: 
PUTS 
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D.  COMMON  Referents; 

N ur.t* 

E . Argu m e n t s : 

N : integer 

F . V ^laes  : 

G . Error  Codes: 

No  ne 

H . Messages: 

None 

E Length: 

S()^  or  4 0 words 

J.  Source: 

TYPINT  ALGOL 

K.  Files  Referenced: 

None 
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3,  i . 7 . 7 TYPASH 
Purpos  e : 

To  type  ASCII  characters  on  console 
Des c r iption: 

The  remote  consoles  used  to  communicate  with  the  CTSS  com- 
puter use  either  six-bit  or  twelve-bit  BCD  codes  for  printing.  Since  the 
main  output  procedure,  T YPEIT,  handles  mostly  ASCII  data  from  the 
Intrex  catalog,  it  constructs  all  of  its  message  data  in  ASCII.  TYPASH  is 
used  by  T YPEIT  (see  Section  3.  1.7.2)  to  convert  the  ASCII  message 
characters  to  twelve-bit  BCD  and  to  transmit  these  characters. 


A.  Operation:  T YPASH(ASCPTR) 

The  argument  passed  to  TYPASH  contains  a pointer  to  an  ASCII 
character  string  which  begins  at  the  address  and  byte  position  indicated 
by  the  address  and  tag  of  the  pointer.  The  length  of  the  string  (in  char- 
acters) is  found  in  the  decrement  of  this  pointer  and  used  to  compute 
the  number  of  computer  words  being  employed  to  hold  the  string.  If  the  length 
of  the  string  is  zero,  TYPASH  returns  immediately  to  the  calling  program. 

The  amount  of  free  storage  needed  to  hold  the  converted  12-bit 
codes  would  normally  b-  imber  of  words  used  by  the  ASCII  string. 

To  allow  room  for  ham  mio  untranslatable  code  (which  are 

printed  as  triplets  of  octal  digits)/  an  area  twice  the  size  of  the  input 
array  is  attempted  to  be  obtained  from  free  storage  by  calling  the  proce- 
dure FRER  (Section  3.4.  1.6).  If  FRER  returns  a zero  value,  that 
amount  of  free  storage  is  not  available.  In  this  case,  only  the  minimum 
amount  of  4/3  the  size  of  the  input  string  is  requested.  If  even  this  is  un- 
available, an  error  mess  age  ( 1 ) is  p r inted  via.  WF  EX  (Section  3.6.  1.  1) 
and  processing  is  terminated  by  calling  DORMNT. 

If  a free  storage  block  is  obtainable  via  the  procedure  FREE 
(Section  3.4.1.  1),  the  address  of  that  block  is  stored  in  the  local  para- 
meters named  CUTAD  and  OUT.  The  address  just  beyond  the  end  of  this 
output  array  is  computed  and  saved  in  a parameter  labelled  ENDBUF. 

The  translation  of  codes  is  then  performed  by  calling  a procedure 
named  TRASH  (see  next  section),  using  the  TYPASH  argument  ASCPTR 
and  the  pointer  in  OUT  as  arguments  to  TRASH. 
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Upon  return  from  TRASH,  the  level  two  interrupt  flag  (INT2  of 
SST.)  is  examined  to  see  if  an  interrupt  has  occurred  since  the  previous 
test  of  this  ling.  If  it  has,  TY PASH  skips  ahead  to  merely  return  the  out- 
put area  to  free  storage  and  return  control  to  the  calling  program. 

If  no  interrupt  has  called  for  a cessation  of  typing,  the  pointer  in 
OUT,  which  now  contains  in  its  decrement  the  length  of  the  converetd 
12-bit  string,  is  passed  to  the  procedure  PRT12  (Section  3.  1.7.9)  where 
the  output  of  these  codes  will  be  finally  accomplished. 

The  details  of  the  code  conversion  and  printing  are  described  in  the 
following  two  sections. 

As  each  output  string  is  printed,  its  free  storage  area  is  returned 
for  repeated  use  by  calling  the  procedure  FRET  (Section  3.4.  1.2).  TYPASH 
then  returns  to  the  calling  program. 

B.  Procedures  Calling  TYPASH: 

T YPEIT 

C.  Procedures  Called  by  TYPASH: 

FRER,  FREE,  FRET,  TRASH,  PRT12,  WFLX,  DORMNT 

D.  COMMON  References: 

None 

E„  Arguments: 

ASCPTR:  ASCII  pointer 

F „ Va lue  s : 

None 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "FREE  STORAGE  NOT  AVAILABLE  TO  CONVERT  OUTPUT 
FOR  CONSOLE."  (WFLX) 


I.  Length: 

1 54g  or  1 08  j q 

J.  Source: 

TYPASH  ALGOL 

K.  File  References: 


O 

ERIC 


None 
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3.  1,7.8  T RASH,  PUTOUT 
Purpos e : 

To  convert  to  BCD  and  store 
Des c r iption: 

These  sub  - p roc  edures  operate  in  conjunction  with  TYPASH,  de- 
scribed  in  the  preceding  section,  to  perform  the  conversion  from  ASCII 
to  12-bit  BCD  codes  and  pack  the  converted  codes  into  consecutive  bytes 
of  the  output  array, 

A.  Operation:  TRASH(  ASCPTR,  OUT) 

TRASH  initializes  itself  by  copying  the  pointers  found  in  the  argu- 
ments into  local  parameters  so  that  they  may  be  incremented  without  dis- 
turbing the  original  pointers.  A character  counter  (to  keep  track  of  out- 
put codes)  named  CNT12  is  reset  to  zero,  and  the  number  of  characters 
to  be  converted  is  copied  from  the  decrement  of  the  first  argument  to  a 
local  parameter  named  NOCHAR. 

NOCHAR  is  used  to  terminate  a loop  which  takes  each  ASCII  code 
from  the  input  string  (via  GET  and  INC  described  in  Section  3.4.4)  and 
converts  it  to  12-bit  BCD  by  calling  a procedure  named  ASCTSS  (Section 
3. 4.  2.  6).  If  the  conversion  is  successful  (not  illegal  code),  then  the 
BCD  code  is  passed  to  a procedure  named  PUTOUT,  along  with  the 
pointer  to  the  output  area. 

PUTOUT  checks  the  address  of  the  current  position  of  the  -ui 

pointer  against  the  end- of  - buffe  r address  computed  and  saved  by  TYPASH. 
If  the  pointer  has  reached  this  address,  then  this  attempt  at  conversion  is 
abandoned.  The  (insufficient)  free  storage  array  is  returned  by  calling 
F RET  and  an  attexnpt  is  made  to  increase  the  size  of  the  output  area  by 
returning  to  TYPASH  at  the  point  where  free  storage  is  requested.  If  the 
end  of  the  output  area  has  not  been  reached,  the  12-bit  code  is  stored 
into  it  at  the  current  byte  position  via  two  calls  to  PUT6  (Section 
3.4.  4 . 6 ) and  two  calls  to  INC  6 (Section  3. 4.  4.  5).  Half  of  the  1 2 - bit 
code  is  stored  by  each  PUT6.  (It  was  never  considered  wo  rth -while  to 
write  a PUT  1 2 procedure.)  As  each  12-bit  code  is  stored,  the  counter 
CNT12  is  incremented  by  one.  The  two  calls  to  INC6  update  the  output 
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pointer  to  the  next  available  storage  byte. 

TRASH  detects  illegal  codes  in  two  ways.  If  the  input  (ASCII)  is 
greater  than  octal  ZOO,  it  is  beyond  ASCII  range  and  ASCTSS  is  not  even 
called.  If  the  code  returned  by  ASCTSS  is  a BCD  ''null11  code  and  the 
ASCII  input  code  was  not  a null,  then  the  ASCII  code  has  no  corresponding 
BCD  equivalent.  In  either  of  these  cases,  the  ASCII  code  is  put  out  in  its 
octal  form  as  three  octal  digits  enclosed  in  angle  brackets  (e.  g.  , <345>). 
This  involves  storing  five  12-bit  BCD  codes  via  PUTOUT  . In  normal  Intrex 

operation,  this  situation  should  never  occur. 

When  all  input  codes,  as  governed  by  NOCHAR,  have  been  processed, 
the  number  of  output  codes  (in  CNT12)  is  inserted  into  the  decrement  of 
the  pointer  to  the  output  string.  Any  unused  bytes  in  the  last  word  of  the 
output  string  are  padded  out  with  null  codes  (empty  bytes  will  cause  zeroes 
to  be  printed  in  BCD). 

TRASH  then  returns  to  the  calling  program. 

B.  Procedures  Calling  TRASH: 

T YPASH 

C.  Procedures  Called  by  TRASH,  PUTOUT: 

ASCTSS,  INC , GET,  INC6,  PUT6 


D.  COMMON  References: 
None 


E.  Arguments: 

ASCPTR: 

OUT: 

CHAR12: 

BUF1Z: 


ASCII  pointer 
BCD  pointer 
12 -bit  code 
BCD  pointer 


F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 


(TRASH) 

(TRASH) 

(PUTOUT) 

(PUTOUT) 
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I.  Length: 

255g  or  173 10 

J.  Source: 

TYPASH  ALGOL 

K.  File  References: 

None 
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3.  1. 7.  9 PRT1Z 


To  print  12-bit  characters 


Peg c ription: 

This  is  the  lowest  level  typing  control  procedure  written  by  Intrex 
personnel.  It  accepts  a pointer  to  the  output  string  converted  by  TRASH 
(as  described  in  the  previous  section)  and  passes  this  output  string  in 
small  groups  of  computer  words  to  the  basic  CTSS  printing  procedure 
WRFLXA. 

A.  Operation:  PRT  1Z  (OUT  PUT  ) 

The  number  of  12-bit  BCD  codes  to  be  printed  is  contained  in  the 
decrement  of  the  pointer  found  in  the  argument  to  PRT  12  . This  number 
is  used  to  compute  the  number  of  computer  words  utilized  by  this  string 
of  characters,  which  is  packed  with  three  codes  to  a word.  The  number 
of  words  is  saved  in  a parameter,  WORD1Z,  which  is  common  to  the  in- 
terrupt procedures  contained  in  this  same  souj  file  (see  Section  3.  1.  8.  3). 

Before  beginning  the  printing  process,  the  switch  which  controls 
the  print-mode  governing  whether  6 bit  or  12-bit  codes  will  be  interpretted 
is  set  to  the  12-bit  mode  by  a call  to  the  CTSS  procedure  SETFUL  (Section 
3.5.5.  5). 


The  string  is  printed  in  28-word  segments.  After  each  call  to 
W Rl'LXA  (where  characters  finally  are  produced  on  the  console),  a 
check  is  made  of  INT2(SST.)  to  see  if  the  interrupt  button  was  ‘ 
during  the  printing  of  that  group  of  characters.  If  the  interrupt  flag  is  set, 
no  further  calls  to  WRFLXA  are  made. 

Before  returning  to  the  calling  program  TYPASH,  PRT12  calls 
SETBCD  (Section  3.  5.  5.  6)  to  switch  the  console  back  to  the  normal  6-bit 
mode  and  resets  the  parameter  WORD12  to  zero  as  an  indication  to  the  in- 
terrupt procedure  INT  TWO  that  no  typing  is  now  in  progress  (should  an 
interrupt  occur  before  the  next  call  to  PRT  12). 

Procedures  Calling  PRT12: 

TRASH 

Procedures  Called  by  PRT12: 

SETFUL,  SETBCD,  WRFLXA 
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D.  COMMON  References: 

None 

E.  Arguments: 

OUTPUT:  12-bit  BCD  pointer 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

N one 

I.  Length: 

!148  or  80,0 

J . Source: 

TYPASH  ALGOL 

K.  File  References: 

None 
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3 . 1 . S I ::  1 e r r p * C ’ j:)t  r o i s 

3 . 1 . - . I ININ’: 

Purpo.v  - 1 : 

To  imti  alize  interrupt  controls 
De scr ir'Uun  : 

The  CTSS  ^ol'tw-tre  allows  the  prutiramnior  t.»  control  tho  ti  -v.  of 
action  when  tne  system  detects  that  a user  has  pressed  the  ATTN  . . r 
BREAK  key  (sometimes  referred  to  in  this  ci-n'iiaie  ntatiun  as  th  * "in- 
terrupt button.'1).  Intrex  uses  two  interrupt  procedures  t o dirokt  c untrol 
of  the  Intrex  system.  These  two  procedures  correspond  to  two  "interrupt 
levels".  Level  ore  is  defined  to  be  anywhere  in  the  Intrex  svsten-  except 
u idim  TYPEIT.  Lanad  tw  o is  defined  os  anywhere  within  the  scope  of 
T \ PE  I T i .)  r the  procedures  - all e d b y T T 1 J E IT  . 

'NINT  is  called  during  the*  session  initialization  chase  ul  Intrex 
ope.  ration  (DYNAMO,  described  in  Suction  3.  1.  3.  1)  to  set  the  interrupt 
controls  ol  CTSS  to  transfer  to  the  level  one  procedure,  INTONE,  if  the 
user  presses  the  ATTN  key. 

A . Ope  rati  o n : IN  IN  T ( ) 

'The  address  of  the  first  instruction  of  the  procedure  INTONE  (next 
section)  is  placed  in  the  POT  in  a locution  «beled  INT  1 AD(  PO  T. ) where 
it  \v"  be  a - lable  to  any  mo  iule  of  the  Intrex  system.  This  address  is 
then  passed  as  an  argument  to  the  C TSS  p roc  edu.  r e S ET  B RK  (Section 
3.5,7.  5)  which  will  route  logical  flow  to  this  address  in  the  event,  of  an 
into  r r upt . 

Procedures  Calling  IN  INT: 

DYNAMO 

Procedures  Called  by  ININT: 

SET BRK 

C O M MO  N Re  f e r e nc  e s : 

Name  Meani  ng  Into  r ruga  ted  9 Changed  9 

INTlAD(POT.)  INTONE  address  x x 

A rguments  : 

None 
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B. 


C 


D. 


E. 


O 

ERIC 


_\  1 


II.  \ 1 c;  s s ct  Li  ^ s 1 
None 

I.  Length: 


J . 


*' 1 s "r  17  10  VVUJ 


( k 1 L I'  v.  <.  * 


l Y H A S 1 i A LC  j O L. 


K . i 1 11  IU*  tV  r t/  ih  *-  m : 

Norn* 


r cis 


3 . 1 . s . 2 


_ i 


1 . - . 2 


IN  r OX  E 

Purpur.  e : 

To  control  interrupt  level  one 
Desc  ription: 

The  address  at  which  Int  rex  was  operating  when  the  interrupt  was 
detected  by  CTSS  is  obtu  ined  and  returned  to  alter  a tlag  is  set  in  the  Sys- 
tem State  Table  to  indicate  that  an  interrupt  has  occurred.  No  lurther 
•action  is  taken  on  the  interrupt  until  the  t lag  is  detei  ted  upon  the  next  call 
to  T YPEIT. 

A.  Operation:  INTONE(  ) 

Three  important  machine  conditions  ,.  re  immediately  saved  upon 
entering  IN  TON  10  via  the  CTSS  interrupt  mechanism.  The\  -.re:  th.e 

contents  of  the-  accumulator,  the  contents  of  index  i eg. star  1 (used  in 
i rule x - mci cli f ie d addressing’1,  and  the  contents  ot  inuex  register  -1  (used  in 
sub -rout  in,;  linkage). 

Bec  ause  of  the  time  lag  between  the  CPU’s  execution  of  output  c om- 
inands  and  the  remote  terminal's  actuation  of  that  output,  it  is  possible  for 
output  (the  main  concern  here  is  the  printing  of  the  READY  message)  to 
be  proc  essed  by  the  CPU  but  not  yet  printed  by  the  console  when  the  in- 
terrupt occurs.  To  circumvent  this  problem,  a xlag,  GE1E  LC(S.ST  .),  is 
set  upon  entering  the-  procedure  GETEIN  (which  produces  the  READY  mes- 
sage just  before  waiting  for  input  from  the  user).  If  INTONE  finds  this  flag 
set,  control  is  sent  back  to  the  procedure  LISTEN  in  the  Intrex  supervisor. 
This  causes  a new  call  to  the  Command  Language  Processor  (CLP)  and  a 
repeat  of  the  READY  message. 

If  GETFLG(SST .)  is  not  found  to  be  set  upon  reaching  INTONE,  the 
flag  INT  1 (SST  . ) is  set  to  TRUER 

The  address  of  the  point  of  interruption  is  obtained  by  calling  the 
CTSS  procedure  GET BRK  (Section  3.  5.7. 4)  which  returns  this  address  as 
a value.  INTONE  stores  this  address  in  a local  parameter  labeled  RET  AD. 
Since  the  transfer  of  control  must  be  made  "indirectly"  through  RETAD, 
and  since  AED  provides  no  means  of  indirect  transfer  exc  ept  through  proce- 
dure calls,  the  "machi"  facility  of  AED  is  used  to  implement  the  transfer 
in  machine  languageu 
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Beiore  leaving  INTONE  (either  to  LIS  TEX  or  to  the  point  L inter- 
ruption the  interrupt  level,  which  was  dropped  back  to  zer^  automatic  a 1 1 v 
when  the  AI  TN  key  was  pressed.  must  De  raise  a again  to  one  by  a call 
to  SET  BRK. 

Before  returning  to  the  point  of  interruption,  INTONE  restores  the 
index  registers  and  accumulator  saved  upon  entrance  to  the  procedure. 

B.  Procedures  Calling  INTONE: 

None  (called  by  CTSS  interrupt  logic) 

C.  Procedures  Called  by  INTONE: 

SET  BRK,  LISTEN,  GETBRK 


D . COM  MON  Referenc  es  : 

Name  Meaning  Inte  r rogate d ? Chang  ed9 

GETF  LG(SST .)  GET  LIN  Flag  x 

INT)  AD(POT.)  Inter,  level  one  address  x 

INT1(SST.)  Inter,  one  flag 

E.  Arguments: 

None 


F. 

V a lue  s : 

None 

G. 

Error  Code 

s : 

None 

H. 

Messages: 

None 

I. 

Length: 

54c  or 

o 

44  ^ q words 

J. 

Source : 

T Y PASH 

A EGO  L 

K. 

File  Refe  re 

: nc e s : 

N o ne 
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3.  i . a.  3 ixrrv.’o 

Purpos e; 

To  control  interrupt  level  t\vi> 

Des  c ription: 

As  in  interrupt  l-w el  ,>ne,  control  is  returned  to  the  point  of  in- 
inte  r ruption  after  a tla^  is  set  by  1W  T TWO  to  indicate  a.  level  two  in- 
terrupt. This  can  occur  only  when  a TYPEIT  call  is  being  processed 
when  the  ATTN  key  is  pressed.  There  are  several  points  within  T Y PENT 
where  the  flag  set  by  INTTWO  is  tested  to  determine  if  processing  of  out- 
put should  be  halted 

A.  Operation:  INTTWO(  ) 

As  in  INTONE,  the  accumulator  and  index  registers  one  and 
four  are  saved  for  restoration  when  INTTW  O is  ready  to  return.  The  flag, 
INT2(SST.),  is  set  to  TRUE  and  the  address  of  the  interrupt  is  obtained  via 
GET3RK  and  saved  in  RETAD. 

A parameter  called  WOR.D12,  which  is  shared  with  PRT12  (Section 
3.  1.7.  9)  is  examined  to  see  if  the  interrupt  occurred  during  the  execution 
of  PRT12,  where  the  output  buffer  is  actually  written  via  RDFLXA.  If 
WORD12  is  not  zero,  it  contair  • the  number  of  computer  words  of  buffer 
space  currently  being  written.  These  words  are  then  filled  with  null  codes 
by  INTTWO  so  that  no  further  characters  will  be  printed  when  INTTWO  re- 
turns to  PRT12. 

The  accumulator  and  index  registers  are  restored  and  INTTWO 
transfers  "indirectly"  through  RETAD.  This  is  ci one  using  machine 
language  instructions  via  the  "macbi"  feature  of  AED. 

Procedures  Calling  INTTWO: 

None  (called  by  CTSS  interrupt  logic) 

Procedures  Cal  Led  by  INTTWO: 

GETBRK 

COMMON  References 

Name  Meaning  Inte  r rogated ? Changed 7 

INT2(SST.)  inter,  two  flag  x 


B. 


C 


D. 


O 

ERIC 


3.  1.  8.  3 
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E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

50g  or  words  (approx.) 

J.  Source: 

TYPASH  ALGOL 

K.  File  References: 

None 


io0 
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3.  1.8.4 


3.  1.8.4  LISTEN 

To  provide  a Supervisor  entry  point 
Peso  ription; 

A.  Operation:  LISTEN(  ) 

The  procedure  LISTEN  acts  as  a switching  station  within  the 
Intrex  supervisor,  directing  the  flow  of  processing  according  to  system 
conditions  at  the  time  LISTEN  is  called. 

If  the  ISI(SST.)  flag  is  set,  indicating  that  Intrex  is  in  "sign-in" 
mode,  control  is  transferred  to  that  early  section  of  SUPER  where  the 
procedure  SIGNIN  is  called  to  ask  the  user  to  identify  himself.  This  has 
the  effect  of  causing  the  sign-in  request  to  be  repeated  if  the  user  in- 
terrupts it  before  it  is  finished. 

If  the  flag  GETFLGfSST.)  is  set,  this  means  that  LISTEN  was 
called  by  the  procedure  INTONE  and  that  the  interrupt  took  place  after 
GET  LIN  had  called  REA  BY  (see  3.2.  1.3  and  3,  1.8.2).  This  is  so  m e - 
what  of  a special  case  in  which  the  usual  message  about  the  interrupt  is 
not  written  into  the  Monitor  File  by  TYPEIT.  It  must,  therefore,  be 
written  by  LISTEN.  To  accomplish  this,  LISTEN  calls  GETBRK  (to 
obtain  the  address  of  the  interrupt  point),  OCTASC  (to  convert  the 
address  to  octal  ASCII  digits),  ASIOE  (to  write  the  message,  "interrupt 
at  level  1 at  location "),  and  MONTIM  (to  write  the  timing  mes- 

sage). 

If  GETFLG(SST.)  is  FALSE,  instead  of  the  above  procedure  calls, 
FSOCLN  is  called  to  reset  any  conditions  left  byan  interrupted  call  to  FSO 
or  GETFLP. 

If  IBEG(SST.)  is  set,  then  the  user  is  in  the  pre-sign-in  stage  of 
Intrex  where  he  is  being  asked  to  type  the  word  BEGIN.  An  interrupt  at 
this  stage  will  cause  LISTEN  to  loop  back  to  the  point  in  SUPER  where  the 
user  is  again  asked  to  type  BEGIN. 

If  none  of  the  above  flags  are  set,  LISTEN  transfers  to  the  point 
in  SUPER  where  the  command  Language  Processor  (CLP)  is  called  to  pre- 
pare to  accept  the  user's  next  command. 


L5 1 


B. 


Procedures  Calling  LISTEN: 
INTONE,  TYPEIT 
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C.  Procedures  Called  by  LISTEN: 

GETBRK,  OCTASC,  ASIDE,  MONTIM,  LOCMES, 
FOSCLN  (via  CALLIT) 


D.  COMMON  References: 

Name  Meaning  Interrogated? 


ISI(SST.  ) 

In  s ign-in  flag 

X 

IBEG(SST.) 

In  begin  flag 

X 

GETFLG(SST.) 

In-  GET  LIN  flag 

X 

STM. (POT.) 

System  time  array 

C hang  e d? 


x 


E.  Arguments: 

None 

F„  Values: 

None 

G.  Error  Codes: 

None 

H-  Messages: 

None 

I . Le  ng  th : 

1 3 Og  or  88  i q words 

J.  Source: 

SUPER  ALGOL 

K.  File  References: 

None 


lo2 
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3.  1.  9.  1 


3 . 1 . 9 Overlay  Controls 

3.  1.  9.  1 SYSGEN 


Purpose: 

To  generate  and  initialize  overlay  system  segments 
Peso  r iption  : 


SYSGEN  is  called  by  SUPER  to  initialize  an  overLay  segment. 
SYSGEN  updates  the  overlay  table,  (sysnam)  . T BLE . , i.  nializes  a 
segment  and  writes  it  out  as  (sysnam)  SGMTOn, 

A.  Operation  SYSGEN(  ) 

See  explanation  of  overlay  mechanism:  (Section  2.5) 


B.  Procedures  Calling  SYSGEN: 
SUPER 


C. 


Procedures  Called  by  SYSGEN: 


BCDEC 

BUFFER 

CHFILE 

CHNCOM 

CLOSE 

DELFIL 

DORMNT 


FRA  LG 

FREE 

FRESET 

FRET 

FERRTN 

FC  LEAN 

FSTATE 


GETCOM 

INITDB 

LINKUP 

OC  ABC 

OPEN 

RDF  LX 

RDWAIT 


R JUST 

SEGINT 

SETMEM 

SENTRY 

WRFLX 

W RF  LX A 

W RW  AIT 


D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

( W RF  LX  A) 

I I 
I t 
I t 


H.  Messages: 

"Type  system  name" 

"New  segment  or  replacement" 

"Type  number  of  segment  to  be  replaced" 
"Is  it  a new  system" 


S..J 
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".tbie.  file  not  found1' 

"Old  .tble.  is  too  short" 

"Segment  not  in  segment  table,r 
"addrl  Linkup  new  Addr2" 

''Proc  not  found  in  system  directory'1 
"Segment  exceeds  old  memory  bound" 
"Main  must  be  re  - initialized" 

"Error  reading  (MOVIE  TABLE)" 
"Linkup  not  found  in  (MOVIE  TABLE)1 
"SEGMTQn  starts  at  Addrl  ends  at  AddrZ" 
"D  base  is  now  /Addrl  Sysnam  is  dormnt' 


I.  Length: 

770g  or  504^q  words 

J . Sour  c e : 

SYSNEW  FAP 


K.  Files  Referenced: 


s ys  nam 
s ys  nam 
s ys  nam 
s ys  nam 
s ys  nam 
(MOVIE 


. TBLE. 
SGMT01 
SGMT02 
SGMT03 
SGMT04 
TABLE) 


154 


( W RF  LX  A) 
1 1 
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3.  1 . 9. 2 


3.  1.9.2  CALL.IT 


Pu  r po  s e : 

To  call  procedures  in  overlay  segments 
De s c ription: 


CALLIT  is  used  to  transfer  control  from  a procedure  in  the  main 
body  to  one  in  a segment.  It  can  still  be  used  if  the  called  procedure  is 
moved  to  the  core  - res  ident  portion  of  the  system. 


A. 


Operation:  Value  = CALLIT  (.  BCD.  /PROC/,  Argl,  Arg2) 


Procedures  in  overlay  segments  that  are  called  via  CALLIT 


ATLCLN 

AUTHOR 

BUFSCN 

CHKSAV 

COMENT 

CONDIR 


DYNA  MO 

EXIT 

FSO 

FSOCLN 

GETLIN 

GO 


INFO 
IN  IF  IX 
INI 

INIVAR 

LIBRY 

LISFIL 


LISTSL 

LONG 

MONTOR 

OPFILE 

PREP 

QUIT 


RANGE 

SAVE 

SEARCH 

SEEMAT 

SHORT 

SIGNIN 


SIGN2 

TABLE 

TIME 


Procedures  in  the  co  r e - re  s ident  portion  of  the  system  that  are  called 
via  CALLIT 


AND. 

ASCINT 

CHKNUM 

CLEANP 

DROP 

EVAL 

FAPDBG 


FC  LEAN 
IN. 

IOUT 

LIST 

NAME 

NUMBER 

NOT 


OR. 

OUT. 

RESTOR 

SUBJ. 

TITLE 

USE 

WITH. 


B.  Procedures  Calling  CALLIT 

SUPER  (Proc  = IN  IF  EX , INIVAR,  DYNAMO,  SIGNIN,  FSO, 
EVAL,  SEARCH,  SEEMAT) 

LISTEN  (Proc  = FSOCLN) 

IN  IF  DC  (Proc  = PREP,  TABLE) 

CLP  (Proc  = GETLIN,  any  command  interpretor) 

NUMBER  (Proc  = CLEANP) 

ANDER  (Proc  = BUE'SCN) 

RESTOR  (Proc  = CLEANP) 

DROP  (Proc  = CHKSAV,  CONDIR) 

LIST  (Proc  = CHKSAV,  LISFIL,  LISTSL) 

USE  (Proc  - CHKSAV,  MOVEIT,  CONDIR) 


O 

ERIC 


loo 


c. 


, ) v'  e cures  C a 1 1 - 

LINKUP,  MON  :IM,  RDV/AIT.  W RF  LX . NRFLaA 

D.  COMMON  Refer*-  es: 

Name  Me  a ning  Inte  rrogated 9 Cl 

STM.  (POT.)  System  Time  Monitor  x 

HN  Arguments: 

. BCD.  PROC  : procedure  name  expressed  in  6-bit 

Argl.  Arg  2:  argument  of  call  to  procedure  PROC 

P . Values  : 

Vaiue  = value  returned  (if  any)  by  PROC 

G.  Error  Codes: 

None 

H.  Messages: 


1 . 

"PROC 

not  in  table” 

(pres  et ) 

2 . 

"PROC 

is  not  linked'' 

(pres  et) 

I.  Length: 

430g  or  280^0  words 


J .  Source: 

SYSGEN  FAP  or  SYSNEW  FA P 


K.  Files  Referenced: 


( s ys nam) 
( s y s nam ) 
(sysnam) 
(s  ys  nam) 


SGMT01 

SGMT02 

SGMT03 

SGMT04 


10b 


BCD 


. 1 . . 


w u r : o s e ; 


i o ci.  i'j v.  ent  r v :nt  - ,■  s e ^ r: e nt 
D e script!  o n : 

A . Ope  r atiun : S EXT  RY(  ) 

SENTRY  is  used  in  the  uverlay  mit  iu  1j  z a ti  on.  ph.isv  to  obtain  the 
names  of  the  entry  points  within  a particular  overlay  segment.  In  the 
e >1  e c ution  phase  , 0 A L L I T passes  to  b E N T R \ t h e n a i u e o l «..t  o r i a e dure, 
i O'  v/  h i c h S E N T R Y p asses  control. 

B . P r o l e c iu  r e s C ^ i i i ng  S E X T R Y . 

LINKUP 

C . P r o c e du  r e s C a L e d b y S E XT  R Y : 

W RF  LX 


D.  COMMON  Re  tere nc  e s : 
None 


E. 


None 


F .  Values: 
No  ne 


G . Error  Codes: 

None 

H . Messages  : 

1 . 1 1 P ROC  not  found  for  segment  n 1 1 ( p r e set) 

I.  Length: 

4 0 - 8 0 w o r d s 

J . Sourc c : 

nSENT  FAP 
K.  Files  Referenced: 


< 


None 


1 


: d e s V r 1 p t i ./I': 


C ; [j  e r v o i *. ) n : 

Lea  M 

AIN  B I)( 

j 

MAIN  1>I)  reli 

ires  as  its  value 

the  add  I 

' t.'  s s 

til  the  b eginning  at  the 

o e r 1 ; i V area.  This 

\ a 1 ue  x s used  by 

. C.  ASC 

i n ( i 

F ’ R A LG  to  udernun, 

it  .in  area  may  be  returned  to  1 roe  storage. 

B . Procedures  C a 1 1 i ng  M A IN  B D : 

FRA  LG,  . C.  A SC 

C I'ria  euures  Called  by  MAIN  13  l ) : 

N o n e 

P . c Q M MO  N Re  f e re  ne  e s : 

Non  e 

E . Arguments: 

N o n e 

F.  Values  : 

Loe  --  be  ginning;  location  of  segment  area,  in  binary 

G . Error  Codes: 

N o n e 

H . Messages: 

None 

I.  Length: 

6 words 

J.  Source: 

S Y S G E N F A P , S Y S N F W F A F 

Fv  . F lies  Re  1 e r e ne  ed: 

No  ne 


1 . 


c::trv 


’Je  bi'  rr-U  on 


LINKUP!  ) 


A.  Ope  ration: 

LINKUP  is  the  entry  point  into  an  overlay  seen  sent.  •-'>iru  e A 
,il\va  ys  the  first  r >utine  in  a segment  and  sim  e it  :s  uienUtied  in  ail  sen 

un  of  its  entry  point  is  the  same  in  each  segment. 


menus  , 


the  Inc  Citiu 


B.  PrcK  edu res  Calling  LINKUP: 

CALLIT 


r~  i~ 


ir  r 


» v e c hires  C a i 1 e 1 1 D y L 1 * ^ E l J P : 

SKN'l  RY 


D . CO  MMON  Ref  e re  ru  e s : 
N on e 

EL  Arguments: 

N u.)  n e 

F . Values: 

None 

G . E rror  C o cl  e s : 

None 


Length: 

1 word 
J . Sou  re e : 

ltnku  p fa  p 

K.  Files  Re f e reneed: 


None 


• . 1 , 1 r r • r ' d = 

- . I . I ■ . 1 ERRGO 

To  provide  a centralized  error  exit 
Dust  ription: 

ERRGO  allows  aiu-ss  from  any  point  in  Intrex  to  the  standard 
error  exit  to  which  most  I/O  errors  are  routeci  automatically.  those 
which  are  not  automatically  sent  there  by  the  C ISB  error  logit  (as  set 
u ; i during  initialization  of  Intrex  by  a call  to  FERRTN,  described  in 
Set  tion  3.4.4.  1)  may  call  ERRGO.  This  provides  the  opportunity  to 
orint  error  diagnostic  data  anci  ■ lose  the  Monitor  f He,  (Note.  aRRCjC 
is  in'  >•  riti  1 to  IE  I R ES , described  in  Section  3.0.1!.  1). 

A.  Operation:  ERRGO  ( ; 

The  first  program  statement  of  ERRGO  is  labeled  LRLXIT  . I his 
label  is  used  as  the  error  c ondition  • t ra  nsfe  r point  lor  any  I/O  error  pro- 
duced by  a procedure  call  which  does  not  specify  local  error  leturns. 

This  first  statement  is  a call  to  IODLAG,  a C I SS  utility  (Section  3.  4. 4.  <-) 
which  stores  various  data  about  the  I/O  error  in  a local  array.  This  data 
is  then  typed  and  recorded  in  the  Monitor  File  by  calling  TYPEIT  with  the 
various  elements  of  data  as  arguments.  This  produces  a message  of  the 
form  shown  in  Part  H. 

Having  recorded  the  error  data,  the  Monitor  File  is  dosed  and 
DORMNT  is  called  to  return  control  to  CTSS  level.  If  Intrex  is  in  the 
HOED  mode,  the  subsystem,  INXSUB  (Section  3.  1.  10.  3)  will  then  take 
control . 

B.  Procedures  Calling  ERRGO: 

I FS  RC H 

G.  Procedures  Called  by  ERRGO: 

IOIHAG,  TYPE1T,  BCDASC,  OCTASC,  RFC  LOS,  DORMNT 

D.  COMMON  References: 


1 0 L 


N o ne 


lues  : 


X one 

Error  Codes : 

N ( j n e 

Messages : 

1 * :'Error  X ode  ^ 
volvint  fi  le^  , 

Notes: 


( 1 > 
u> 

$IOERRl$ 

Code  found  in  IODIAG  array  word 

3 

(3) 

(4) 

$IO£RRd$ 

Procedure  name  found  in  IODIAG  a 

rray  word  3 

(3) 

(O 

$IOERRi$ 

Address  found  in  IODIAG  array  w 

ord  1 

(7) 

(B) 

$IOERR4$ 

File  names  found  in  IODIAG  array 

words  5 and  6 

Length: 

102o  or  66  w words  (included  in  INIRES) 
o 1 U 

Sou  r c e : 

RESLIS  ALGOL 

Files  Referenced: 

Monitor  File 


Ld"  in  call  to^  ROUT^  at  location^  AAAAA^  in- 
NAME;  NAME28" 


3.  1,  1 0.  2 
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3.  L 10.2  SETRTN 
Purpos  e 

To  set  up  error  return  address 
Des  c r iption: 

The  CTSS  utility  procedure  FERRTN  (Section  3.  5.  5.  1)  allows 
specification  of  a standard  or  central  i/O  error  return.  The  format  of  the 
call  to  FERRTN,  however,  requires  that  the  argument  specifying  the 
labeled  address  to  be  used  as  the  error  return  be  of  the  form  PZE  LABEL 
rather  than  TXH  LABEL.  This  necessitates  writing  the  calling  sequence 
in  machine  language  rather  than  in  AED.  SETRTN  is  called  from  the  AED- 
compiled  procedure  INIRES  (Section  3.3.2.  1)  and  in  turn  calls  FERRTN 
with  the  proper  machine  instructions. 

A.  Operation:  SETRTN(EREXIT) 

SETRTN  is  compiled  as  an  AED  procedure  (in  an  ALGOL  file) 
but  consists  of  only  two  machine  language  instructions  using  the  "machi" 
facility  of  AED. 


The  two  machine  instructions  are: 

TSX  FERRTN,  4 
PZE  EREXIT 

The  AED  compiler  sets  up  the  necessary  instructions  for  inserting 
the  proper  argument  address  into  the  PZE  location,  and  for  generating  the 
return  transfer  instructions. 

B.  Procedures  Calling  SETRTN: 

INIRES 

C.  Procedures  Called  by  SETRTN: 

FERRTN 

D.  COMMON  References: 

None 

E.  Arguments: 

EREXIT:  Label 


Values : 
None 


-10  7- 
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G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

11Q  or  9in  WORDS 

o 1 U 

J.  Source: 

SETRTN  ALGOL 

K.  File  References: 

None 
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3.1.10.3  INXSUB 
Purpos  e 

To  control  recycling  of  Intrex 
Description- 

Intrex  tries  to  prevent  the  user  from  reaching  CTSS  command  level 
as  each  session  is  concluded.  By  immediately  and  automatically  restart- 
ing Intrex,  users  are  prevented  from  using  CTSS  for  other  operations 
and  are  relieved  from  resuming  Intrex  to  start  each  session. 

Intrex  also  tries  to  recover  automatically  from  error  exits  and  re- 
fuses to  allow  the  user  to  quit  via  the  ATTN  key  and  issue  other  CTSS  com- 
mands (except  for  a select  few  such  as  RSTART). 

This  control  over  the  user's  activities  is  made  possible  by  the  CTSS 
subsystem  logic.  This  system  allows  the  specification  of  a given  SAVED 
program  file  to  be  used  by  CTSS  whenever  normal  program  operation  is 
terminated  by  certain  conditions,  such  as:  program  stop,  call  to  DORMNT, 

call  to  C HN COM,  or  I/O  error. 

When  any  of  these  conditions  are  encountered,  CTSS  will  then  auto- 
matically initiate  execution  of  the  specified  subsystem — in  this  case, 
INXSUB.  The  subsystem  then  examines  a condition  code  to  determine  the 
reason  it  was  called,  and  takes  the  appropriate  action.  Usually  this  action 
involves  an  automatic  resumption  of  Intrex,  though  not  necessarily  at  the 
Log  - in  stag  e . 

A.  Operation: 

1.  The  first  step  of  INXSUB  is  to  turn  off  the  "blip"  .feature  (in  case 

a search  was  being  performed  at  the  time  of  an  Intrex  failure.  This  is  done 
by  calling  SETBLP  (Section  3.  5.7.  12)  with  arguments  of  zero. 

2 . INXCON  is  called  (Section  3.  1.3.2)  to  d etermine  if  an  Intrex  console 
is  being  used.  If  so,  the  line  length  must  be  re-set  to  the  shorter  55  char- 
acter length  limitation  of  the  Intrex  console.  This  is  done  by  calling  the 
procedure  SETLIN  (a  sub- procedure  of  a general-purpose  version  of 
TYPEIT  designed  for  non-Intrex  use)  which  changes  the  line  length  used 
by  TYPEIT  when  it  produces  messages  to  the  user  from  the  subsystem. 
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3.  A local  jrray  is  filled  with  identification  data  by  calling  the  CTSS 
utility  procedure  WHOA  MI  (Section  3.  5. 7 . 9). 

4.  The  condition  code  word  is  obtained  from  CTSS  by  calling  GETSYS 

(Section  3.  5.7.  18).  Another  special  A-core  word  is  obtained  by  calling 

GET WRD  (Section  3.  5.7.  11).  This  word  is  used  to  communicate  one 
of  several  possible  pieces  of  information  (to  be  discussed  later)  from 
Intrex  to  the  subsystem. 

5.  The  left-most  eighteen  bits  of  the  condition  code  are  extracted  and 
examined.  The  individual  bits  of  this  half-word  will  indicate  which  condi- 
tion caused  the  subsystem  to  be  employed.  A 1 in  this  half  -word  in- 
dicates that  the  subsystem  was  trapped  by  the  issuance  of  a new  CTSS  com- 
mand, meaning  that  the  user  quit  via  the  ATTN  key  and  tried  to  use  a 
CTSS. command  other  than  RSTART.  In  this  case,  TYPEIT  is  called  to 
print  a message  (1)  telling  the  user  what  he  did  and  that  Intrex  is  being 
resumed  at  the  point  of  interruption.  A core-image  of  Intrex  at  the  point 
where  the  ATTN  key  was  pressed  is  automatically  SAVED  by  CTSS  before 
the  subsystem  is  called.  This  core  image  is  given  a first  name  consisting 
of  the  programmer  number.  The  command  buffer  is  then  set  to  contain 
the  programmer  number  obtained  from  WHOAMI  as  a RESUME  command 
argument.  When  the  core  image  file  is  resumed,  the  user  continues 
where  he  was  before  he  quit. 

6.  Before  testing  for  other  conditions  which  might  have  called  INXSUB 
into  action,  the  A-core  word  mentioned  above  is  examined  to  see  if  it  is 
the  word  "STOP".  This  word  is  inserted  by  Intrex  before  execution  of  cer- 
tain vital  I/O  operations.  If  one  of  these  operations  triggers  an  error,  it 
is  fruitless  for  the  subsystem  to  attempt  to  restart  Intrex.  Therefore,  if 
this  word  is  found,  the  subsystem  prints  a message  (2)  telling  the  user 
that  Intrex  is  unable  to  continue  and  that  he  should  inform  Intrex  personnel 
of  the  error  condition.  The  core-image  of  Intrex,  saved  by  the  CTSS 
logic  as  -PROGNO^SAVED,  is  renamed  BOMB  -time-  and  given  a perma- 
nent mode  via  CHFIEE  (Section  3.  5.  3.  1)  for  future  post-mortems.  The 
time  of  day,  obtained  via  GETTM  (Section  3.5.7.23)  is  used  as  the  last 

* See  footnotes  at  end  of  section. 
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name  of  the  permanent  core-image.  The  option  bits  which  control  CTSS's 
communication  with  INXSUB  are  set  to  zero  via  LDOPT  (Section  3.5.7.  16) 
and  DORMNT  is  called  to  return  to  CTSS  command  level. 

7.  If  the  A-core  word  is  not  "STOP'S  it  is  assumed  to  be  either  the  first 
name  of  a Password  File  or  the  dialog  mode  (LONG  or  SHORT).  If  the 
Intrex  system  was  started  up  in  the  HOLD  mode  (see  Sections  3.  1.  3.  1 and 
3.  3.  2.  1),  the  holding  password  and  the  dialog  mode  will  be  contained  in  a 
Password  File  whose  name  has  been  obtained  by  INXSUB  via  the  above- 
mentioned  call  to  GETWRD.  This  mode  is  detected  by  calling  the  proce- 
dure FILCNT  (Section  3.4.3.  1)  with  the  A-core  word  as  the  first  argu- 
ment and  FILE  as  the  second  argument.  If  a file  by  the  name  of  -word- 
FILE  exists  , the  value  returned  from  FILCNT  will  be  the  length 

of  that  file.  If  no  such  file  exists,  the  value  returned  is  zero.  If  the 

latter  is  the  case,  HOLD  mode  is  not  in  use  so  the  A-core  word  is  assumed 
to  be  the  dialog  mode  and  INXSUB  jumps  ahead  to  the  system- error-alert 
logic  mentioned  below  (Paragraph  9). 

8.  If  the  file  exists,  it  is  opened  for  buffered  reading  using  the  CTSS 
utilities  OPEN  (Section  3.  5.  1.  1)  and  BUFFER  (Section  3 . 5 . ! . 3 ) . The 
lirst  word  of  the  file  is  read  into  a local  password  location,  and  the  second 
word  is  read  into  a mode  location.  The  file  is  then  closed  via  CLOSE 
(Section  3.  1.5.2).  If  an  I/O  error  occurs  w'hile  reading  the  file,  an  error 
message  (4)  is  printed  and  DORMNT  is  called. 

9.  If  the  Password  File  is  only  two  words  long,  this  indicates  that  the 
subsystem  was  called  because  of  an  error  condition  within  Intrex.  In  this 
case,  INXSUB  prints  a message  (3)  to  the  user  informing  him  of  a system 
error.  Since  the  STOP  was  not  found  in  the  A-core  word,  this  error  is 
probably  of  a less  critical  nature.  INXSUB,  therefore,  resumes  Intrex 
from  the  beginning  in  mopes  that  a fresh  start  will  allow  the  user  to  continue 
his  session.  The  command  buffer  of  CTSS  is  set  up  to  contain  the  command 
arguments;  INTREX,  SKIP,  -MODE-2,  HOLD2  PWORD-4.  Here  again, 
the  core-image  is  renamed  and  and  saved  for  post-mortems  by  calling 
GETTM  and  CHFILE  as  described  above. 
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10.  If  the  Password  File  contains  three  rather  than  two  words,  the  third 
word  was  written  by  the  QUIT  connmand  logic  of  Intrex.  This  means  that 
Intrex  has  not  encountered  an  error  condition  but  is  merely  re-cycling. 

In  this  case,  the  CTSS  command  buffer  is  set  up  to  contain  the  arguments; 
INTREX,  LONG,  HOLD^  -PWORD-4  BEGIN. 

11.  The  BEGIN  argument  is  included  only  if  the  condition  code  contains 

a 4 (4  is  CHNCOM  call  indication,).  A subsystem  trap  caused  by  calling 
CHNCOM  at  the  completion  of  the  Intrex  QUIT  routine  (Section  3.  1.4.4) 
indicates  that  the  user  typed  BEGIN  during  an  Intrex  session  (without  a 
prior  QUIT).  When  this  occurs,  QUIT  is  called  internally  and  automa- 
tically (from  GO,  Section  3.  1.4.  1)  and  ends  with  a call  to  CHNCOM. 

A trap  caused  by  CHNCOM  forces  the  BEGIN  argument  to  be  included 
in  the  "resume  Intrex"  command,  which  skips  the  request  for  the  user 
to  type  BEGIN  and  goes  right  to  the  LOGIN  request  (see  Sections  3.  1.  3.  1 
and  3.  1 . 1 . 1). 

12.  If  a call  to  DORMNT  (the  usual  exit  from  the  QUIT  procedure)  is 
the  cause  of  the  subsystem  being  called,  the  BEGIN  argument  is  omitted 
from  the  "resume  Intrex"  command  so  that  the  user  will  be  asked  to  type 
BEGIN  to  start  the  next  session. 

13.  In  all  cases  of  Intrex  being  resumed  (either  continued  or  restarted), 
one  central  exit  route  is  taken  from  INXSUB  (labeled  GO).  At  this  area, 
the  subsystem  option  bit  (40  octal),  which  indicates  that  the  present  opera- 
ting program  is  the  subsystem,  is  reset  to  zero,  (This  bit  is  set  by  CTSS 
just  before  starting  to  execute  the  subsystem.  It  prevents  recursive  sub- 
system calls.)  Finally,  the  previously  prepared  command  buffer  is  acti- 
vated by  calling  the  CTSS  procedure  SC  LS  (Section  3.  5.  7.  24),  and  the  re- 
sume Intrex  command  is  executed  by  calling  the  procedure  NCOM.  (Section 
3.5.7.25). 

B.  Procedures  Calling  INXSUB: 

Activated  by  CTSS  subsystem  Logic 


O 
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C . 


Procedures  Called  by  INXSUB: 


SETBLP, 

WHOAMI, 

DORMNT, 

RDWAIT, 


INXCON,_ 

TYPEIT* 

FILCNT, 

BUFFER, 


SETLIN,  GETSYS,  GETWRD. 

LOCMES  LDOPT, 

GETTM,  CHFILE,  OPEN, 
CLOSE,  RSOPT,  SCLS,  NCOM 


General  purpose 


version 


COMMON  References: 
None 


E. 

A rguments 

N one 

F. 

V alue s : 

None 

G. 

Error  Cod 

None 

H. 

Me  s s ag  e s : 

1.  "You  have  left  Intrex  by  hitting  the  ATTN  button  twice.  Intrex 

will  now  continue  at  the  point  of  interruption."  (LOCMES) 

2.  "Intrex  is  unable  to  continue  because  of  a system  error.  Please 

bring  this  to  the  attention  of  Intrex  personnel."  (LOCMES) 

3.  "Intrex  has  experienced  a system  error.  Your  search  status 

is  being  reset  in  hopes  that  you  may  be  able  to  proceed  as  if  you 
had  just  logged  in  to  Intrex.  If  you  encounter  further  difficulty 
in  system  operation,  please  notify  Intrex  personnel.  In  any  case, 
please  bring  this  error  to  our  attention  at  your  convenience. 

Wait  for  READY  message."  (LOCMES) 

4.  "Error  reading  pass  file  in  Subsystem."  (LOCMES) 

I.  Length:  (Separate  program,  not  part  of  Intrex) 

3320  or  218.  „ words  (main  program  only), 
o i U 

17640o  or  8096,  ^ words  (including  all  sub-procedures) 
o 1 (J 

J . Source : 

INXSUB  ALGOL 

K.  File  References: 


Password  File 
INTREX  SAVED 
progno  SAVED 
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1 . - P P.O  GXO-  represents  th  e programmer  num  be  r I c ^ z e c in  to  tha  t 

console  as  obtained  via  WHO  A MI. 

2.  -MODE-  is  the  dialog  mode,  LONG  or  SHORT,  as  obtained  from 

the  Password  File. 

3.  HOLD  is  the  argument  to  a 'resume  Intrex"  command  which  causes 
automatic  re-cycling  of  Intrex  through  the  sub-system  when  the  user 
issues  a QUIT  command. 

4.  -PV/ORD-  is  the  password  which  prevents  recycling  after  a QLIIT  com- 

mand, as  obtained  from  the  Password  File. 
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A 1.1 


inico: 


2 


Purpos e 

To  set  up  delimiter  a nd  trim  tables. 


De s c riptio n 

A.  Operation:  INICON(  } 

INICON  initializes  CLP  by  setting  certain  variables  and  by  gen- 
erating a character  string  via  . C.ASCR  FRALG  returns  the  space  used 
by  the  procedure  to  free  storage. 


B. 


C. 


D. 


E. 


F. 

G. 

H. 

I. 

J. 

K. 


Procedures  calling  INICON: 

IN  I FIX 

Procedures  called  by  INICON: 
FRALG,  . C.  ASC 

COMMON  references: 

None 

A rguments  : 

None 

V alues : 

None 

Error  Codes : 

None 

Me s s ages  : 

None 


Le  ng  th : 


1 7 8 (,r  1 5 1 0 


wo  rd  s 


Source: 

CLP  ALGOL 


Files  Referenced: 
None 
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Puroos e 

•• i 

T v u e s s v ■. ; i n ir-.  ■.  i n d 1 : n e s . 

D c s l n pt  iu  n 
* 

When  the  system  is  ready  to  accept  commands  iron',  the  user, 

SUPER  calls  CLP,  CLP  functions  as  a sec  ond-level  supervisor  over 
the  process  of  accepting  and  interpreting  user  input. 

A.  Operation:  Code  ~ CLP(  ) 

CLP  calls  GETLIN,  whu  h accepts  a command  line  : rnr.  a ■ . s <.*  r 
diui  returns  an  .CSC  II  gante  r tv..-  that  line.  C LP  gin' os  this  pointer  to 
NEXITM,  v.hi<.  h returns  a pointer  to  the  first  substring  »rt  the  commarv: 

1 i ne  (substri  ng  s are  sot  o if  b y the  char  a i ters  col  o n , s pa  e e . s i a s h u r a r - 
riage  return).  If  A FI  X I T M cannot  lind  a substring  — t o r instance,  it  CLP 
has  processed  all  the  substrings  — CLP  returns  control  to  SUPER.  Other- 
wise, C LP  gives  the  substring  to  LOOKUP,  which  searches  the  command 
table.  If  it  finds  a match,  it  returns  the  BCD  name  of  the  module  asso.- 
ciated  with  the  command.  If  LOOKUP  reports  that  the  substring  is  not  a 
command  name,  C LP  asks  RESTOR  to  check  the  string  against  the  list  of 
list  names.  If  the  string  is  not  a list  name  either,  CLP  prints  "illegal 
command"  and  returns  to  SUPER.  If  the  substring  is  a command,  CLP 
gives  CALLIT  the  name  of  the  required  subroutine  — as  supplied  by  LOOKUP 
and  CALLIT  transfers  control  to  the  routine.  CLP  then  calls  NEXITM  again 
to  search  for  the  next  command. 

Procedures  Calli ng  CLP: 

SUPER,  SIGNIN 

Procedures  Called  By  CLP: 

1 . E>irec;t  Calls  : 

CALLIT,  DORMNT  FRET,  GETLIN,  LOOKUP, 

NEXITM,  RESTOR,  TYFEIT,  W RF  LX  A 
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B . 

C . 
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a :;d. 

AU'I  HO  A 

COMEXT 

DROP 

EVAL 

EXIT 

GO 


INFO 

EIBRY 

LIST 

MONTOR 

NAME 

NUMBER 


' O "I  . S H O R i 

OR.  LONG 

OUT.  SUBJ. 

QUIT  TIME 

LANGE  TITLE 

SAVE  USE 

SEEMAT  WITH. 


D.  COMMON  References: 

Name  Meaning  Inter  rog?iteri?  Cha.  ng  e d 


IBEG  (SST  . ) 

In  begin  stage 

X 

MODEG  (POT.) 

Anding  mode 

TEXTXfPOT.) 

Text  pointer 

COMTB.  (POT.) 

Command  table 

X 

VERBOS  (POT.) 

Long/short  mode 

X 

E.  Arguments: 

None 

F . Values: 

Code  = 0 

G.  Error  Codes 

-1:  user  has  not  typed  begin  or  unintelligible  command  (message  1) 

-Z:  command  line  is  too  long  (message  2.) 

-3:  illegal  command  (message  3) 

-4:  error  return  from  command  interpreter 


H .  Me  s s ages 

1.  "System  error  attempting  to  interpret  command  line."  ($CLP1) 

Z.  "Please  break  your  request  into  requests  not  exceeding  ZOO 
characters  in  length."  ($CLPZ$) 

3.  "X  is  not  a legal  command  name.  Check  for  typing  errors. 

See  part  6.Z  of  Guide  for  full  list  of  commands.  ($CLP3$) 

"Please  rephrase  your  request." 

4.  "Your  command  could  not  be  understood."  ($CLP4$) 


I. 

J. 


Le  ngtn: 

320g 

Source; 

CLP 


or  2 08  j q words 


A LGO  I. 


K. 


Files  Refe  renced: 
N one 
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T c a e t a c ■ j it:  in  a n d line. 

D esc  nuU  o n 

- A-  . — 

CLP  c alls  GET  LIN  to  ooiain  a string  of  user  commands.  GETLIN 
waits  for  input  from  the  user  in  the  w ait  state,  waking  up  periodically 
so  that  the  console  is  nut  automatically  logged  out.  W hen  a user  types 
a character,  the  s vs  tern  :s  automatically  forced  ouL  of  the  wait  state, 
and  GETLIN  receives  the  user's  command  line.  GETLIN  converts  ih;s 


line  from  1 2 - bit 

CTSS  , . . 

nt . .•  '-1  bit  ASCII  c ■.  ci  e . 

GETLIN  returns  an 

ASCII  pc. inter  to 

th;  h s t r ;nt! . 

A.  Operation 

Ft  r 

bi-ILINf  ) 

1 . Mam  Flow 


GET  LIN  initializes  itself  by  allocating  a fixed  amount  of  storage  fur 
both  the  original  12-bit  string  and  the  converted  9-bit  string.  GETLIN 
calls  GETIME  to  get  the  current  time  of  day  and  then  falls  asleep  for  a 
pre- determined  amount  of  time.  When  it  wakes  up  it  checks  the  time 
and  computes  how  long  it  has  been  asleep.  It  then  uses  FILCNT  to  check 
for  the  existence  of  either  the  disk  file  ’’Hold  Up”  or  "Hold  It".  If 
neither  of  these  files  exist  (more  about  this  in  Section  2),  it  compares 
the  amount  of  time  that  it  has  been  asleep  against  the  specified  sleep 
time.  If  these  times  differ,  GETLIN  assumes  that  it  was  forced  out  of 
wait  state  by  the  user  and  RDFLXA  is  called  to  receive  the  user’s  com- 
mand line.  RDFLXA  returns  control  to  GETLIN  when  the  user  types 
a carriage  return.  GETLIN  examines  each  12-bit  character  in  the  com- 
mand line,  converts  it  to  ASCII  and  stores  it  in  the  ASCII  string  area.  If 
the  line  ends  with  a continuation  character  - the  hyphen  -GETLIN  calls 
RDFLXA  again  and  waits  for  more  input.  Otherwise,  GETLIN  inserts 
a slash  at  the  end  of  the  line,  constructs  an  ASCII  pointer  to  the  con- 
verted line,  and  returns  control  to  CLP. 
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2.  Minor  Details 

(1)  The  presence  of  a file  HOLD  UP  signifies  that  a systems 
programmer  is  updating  the  message  file?  . HOLD  IT  is 
used  for  updating  segments.  In  each  case,  the  appropriate 
files  are  closed  and  the  system  goes  to  sleep.  After  5 
minutes  GETLIN  will  resumed  normal  operation. 

(2)  Since  CTSS  accepts  any  character  in  a 12-bit  mode,  GETLIN 
must  itself  implement  the  CTSS  kill  and  erase  feature. 

(3)  GETLIN  writes  the  input  line  in  the  Monitor  File  via  ASIDE. 
If  the  system  is  in  CATII  mode,  the  input  line  is  written 
into  CATII  output. 


B.  Procedures  Calling  GETLIN: 

CLP,  SIGNIN 

C.  Procedures  Called  by  GETLIN: 

ASIDE,  CLFILE,  FRET,  FREZ,  GET,  GETIME,  GET  12, 
FILCNT , INC,  INC  12,  INITYP,  INIDSK,  NAP,  OPFILE, 


PUT,  RDFLXA,  SETBCD,  TSSASC, 
COMMON  References: 

WAIT 

Name 

Meaning  Interrogated? 

C hanged? 

COMLIN(POT.  ) 

Command  line  buffer 

X 

MAXLIN(POT.) 

Max.  lines  input 

X 

VERBOS(POT.) 

Long/  short  mode 

X 

DFLN 1 (POT  . 

Dialog  file  long 

X 

DFSN 1 (POT  . ) 

Dialog  file-short 

X 

TEXTX(POT .) 

T ext  pointe r 

X 

RTM.  (POT.) 

Ready  message  time  pointer  x 

GETF  LG(SST .) 

Interrupt  in  GETLIN 

X 

X 

HELD(SST.) 

Hold  for  DIRGEN 

X 

X 

CAT  II(SST . ) 

Off-line  output 

X 

TIMES(SST-) 

Times  requested 

X 

INFOX  (SST . ) 

Info,  requested 

X 

E.  Arguments: 

None 

F . V alues  : 

Ptr  = ASCII  pointer  to  command  line 

G.  Error  Codes: 

Ptr  = 0:  command  line  is  empty 

-1:  command  line  is  too  long 
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3. 2.  1. 3 


H.  Messages: 

1.  "READY"  (/Redmes/)  ["R"  -short  mode] 

I.  Length: 

770g  or  504^q  v;ords 

J.  Source: 

GETLIN  ALGOL 

K.  Files  Referenced: 

None 
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-160- 


3.2.  1.4 


3.2.  1.4  NEX1TM 
Purpos  e 

To  parse  character  strings 
De  s c ription 

The  procedure  NEXITM  is  designed  to  find  the  "next  item"  in  a 
string.  A table  of  delimiters  is  used  to  determine  what  NEXITM  will  re- 
turn as  the  next  substring  in  a string  of  ASCII  characters.  Trimming  of 
leading  and  terminating  characters  and  culiing  of  common  words  is  also 
pos  s ible . 

A.  Operation: 

The  normal  call  to  NEXITM  contains  a pointer  to  the  string,  a 

pointer  to  a table  of  delimiters  and  an  argument  which  will  contain  the 

terminator  found  upon  returning. 

next  = NEXITM  (staptr,  termfo,  tertapj  $, 

staptr  is  a standard  Intrex  pointer  to  the  string  of  ASCII 
characters . 

termfo  is  the  character  found  that  NEXITM  used  to  de- 
lineate this  substring. 

te  rtap  is  a pointer  to  the  delimiter  table. 

next  is  a pointer  to  the  substring  of  characters  starting 
at  the  beginning  of  the  string  (at  the  location  pointed  to  by 
jstaptr)  and  ended  by  but  not  including  the  character  in  termfo. 

The  number  of  characters  in  this  substring  is  in  the  decrement  of  next, 
and  the  length  of  the  remaining  string  is  computed  and  s taptr  is  updated  to 
point  to  the  part  of  the  string  that  follows  the  substring  returned. 

Four  optional  arguments  may  be  used.  They  must  appear  in  the  follow- 
ing fixed  order: 

next  = NEXITM  (staptr,  termfo,  tertap,  frtrim,  endtrim,  cultab,  noast)$ 

staptr,  te rmf o,  and  tertap  are  as  above,  and  the  four  optional 
arguments  are: 

frtrim  is  a pointer  to  a table  of  characters  that  will  be  trimmed  off 
at  the  beginning  of  the  substring. 
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3. 2.  1 . 4 


endtrirn  is  a pointer  to  3 table  of  characters  that  will  be 
trimmed  at  the  end  of  the  substring. 

cultab  is  a pointer  to  a table  of  common  words  that  will  be 
culled  out  if  they  appear  as  the  next  item. 

noast  will  disable  the  standard  Intrex  catalog  convention  for 
asterisks  as  special  characters.  If  this  argument  is  not  pre- 
sent any  asterisks  that  appea~  will  be  treated  as  pairs  that  en- 
close a group  that  is  not  to  be  broken  up.  (See  ’’Input/output  Re- 
presentations of  Special  Characters",  Intrex  Memorandum  4 ). 

This  is  a boolean  argument,  and  does  not  pass  any  value  to 
N EXIT  M,  but  is  merely  present  or  not  present. 


The  use  of  an  optional  argument  that  follows  some  unused  optional 
argument  requires  the  unused  argument  to  be  given  as  -0.  If  noa  s t_  i s 
present  (with  any  value),  asterisks  will  be  treated  as  ordinary  delimiters. 

The  delimiter,  front  trim,  and  end  trim  tables  are  ASvHI  characters 
packed  4 per  word.  The  pointers  to  these  tables  are  standard  Intrex 
pointe  rs . 

The  cull  table  and  the  cull  table  pointer  have  a special  construction. 
The  pointer  cultab  has  the  table  length  (in  computer  words)  in  the  decre- 
ment. The  address  portion  contains  the  address  ol  the  beginning  of  the 
table.  The  table  consists  of  English  words  of  4 or  less  letters.  The  ASCI 
codes  for  the  words  are  left  justified  in  the  computer  word,  and  unused  bytes 
are  filled  3s  zeroes.  The  last  computer  word  in  the  table  is  all  octal  7 s. 
The  table  searching  procedure  used  is  a FAP  coded  procedure  that  uses  a 
2 instruction  loop.  This  procedure  (TBSRCH)  is  available  along  with  a 
modified  version  for  a table  with  more  than  one  computer  word  per  entry 
(VSRCH).  The  current  table  for  culling  common  words  contains 
English  words  used  in  InvertedFile  generation.  These  are:  a,  by, 

in,  of,  on,  to,  and,  for,  the,  with,  from. 


the  1 3 
as,  at. 


B. 


C . 


Procedures  Calling  NEXITM: 


AND  . 

IN. 

OUT  . 

S . T 

AUTHOR 

LIST 

QUIT 

TABLE 

CLP 

MONTOR 

RANGE 

TIME 

DROP 

NAME 

SAVE 

USE 

INFO 

NUMBER 

SIGNIN 

WRT 

ocedures 

Called  by  NEXITM: 

COPY 

FREZ 

ISARG 

DEC  1 

GET 

ISARGV 

FIND 

INC 

PUT 

FRET 

INC  1 

TBSRCH 

i?7 
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D.  COMMON  References: 

None 

E.  Arguments: 

See  Section  A 

F . V allies  : 

ASCII  pointer 

G.  Error  Codes 


next  0 and  termfo  = 0 if  an  empty  string  pointer  has  been  used* 

( l . e . the  decrement  of  staptr  is  zero.) 


next 

next 

ment 


- -1  if  no  delimiter  is  found  in  the 

~ - Z and  termfo  = 52g  if  only  one 
noast  is  not  present. 


string . 
as  te  risk 


is 


found  and  the  argu- 


next  = 0 and  termfo  ^-delimiter  found  - if  there  are  no  characters  re- 

maining in  the  substring  after  front  and  end  trimming. 


H.  Messages: 

None 

I . Length: 

lOOOg  or  512^^  words 

J . Sourc  e : 

NEXITM  ALGOL 


K.  Files  Referenced: 
None 
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3.2.  1.5  LOOKUP 


Purpos e 

To  identify  a command. 

Des  c ription 

A.  Operation  Bcdstr  = LOOKUP  (Ascptr,  Tabptr) 

LOOKUP  is  used  by  CLP  to  associate  a user  command  with  the 
Intrex  program  module  which  will  act  on  it.  CLP  gives  two  arguments 
to  LOOKUP,  an  ASCII  pointer  to  a word  from  the  user’s  command  line 
and  a pointer,  found  in  COMTB  .(POT.)  to  the  Lrlrex  command  table.  LOOKUP 
takes  the  first  four  characters  of  the  ASCII  string  and  uses  VSRCH  to  find 
them  in  the  table.  If  they  are  found,  LOOKUP  extracts  the  word  whicn 
follows  these  matching  characters  from  the  table.  This  is  the  BCD  name 
of  the  routine  which  CLP  will  call  (via  CALLIT)  so  that  the  user's  com- 
mand may  be  carried  out.  LOOKUP  returns  to  CLP  with  this  BCD  string 
as  its  value.  If  the  four  character  ASCII  string  was  not  found,  LOOKUP 
returns  to  CLP  with  a value  of  0. 

B.  Procedures  Calling  LOOKUP: 

CLP 

C.  Procedures  Called  by  LOOKUP: 

GET,  PUT,  INC1,  VSRCH 

D . COMMON  References: 

Name  Meaning  Inte  r r ogate  d ? C hanged  ? 

COMTB. (POT.)  Command  table  pointer  x 

E.  Arguments: 

Ascptr:  ASCII  pointer  to  user  command 

Tabptr:  pointer  to  command  table 

F . Value  s : 

Bcdstr  - name  of  procedure  associated  with  command,  in  BCD 

G.  Error  Codes: 

0:  command  not  found 
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H.  Messages: 

None 

I.  length: 

16CC  or  112iri  words 
8 10 

J*  Source: 

NEXITM  ALGOL 

K.  Files  Referenced: 

None 


•*  r \ 

1.  O 0 


3.2.2  Subject:  'Title  Command  Interpretation 
3.2.2.  1 INIS.T 


Purpose 


To  initialise  s ubj  ec  t /title  interpreter. 


Des  c r lption 
A.  Operation: 

INIS.T  is  called  by  INIT2,  which  is  called  by  1NIFIX,  during 
the  fixed  parameter  initialization  phase.  It  sets  up  strings  of  delimiters 
and  pointers  to  these  strings  for  NEXITM  to  use  in  extracting  the  command 
line  words,  It  is  given  over  to  free  storage  via  FRALG  after  execution. 


B. 

Proce du  res 

Calling 

INIS.  T: 

IN  IT  2 

C. 

P r oc  e du  res 
FRA  LG , 

Called 
F R E Z , 

by  INIS.  T 
. C . AS C 

D . 

COMMON 

R ef e renc 

es  : 

E. 

N o n e 

A rguments  : 

N one 

F. 

V a lue  s : 

None 

G.  Error  Codes: 

N one 

H.  Messages: 

N one 

I.  Length: 

43^  or  35^  words 

J . Sou  rce : 

INTPRT  ALGOL 


K.  Files  Referenced: 
None 
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3. 2. 2. 2 5UBJ  . 


Purpos  e 

T ' interpret  SUBJECT  commands 
De s e r lption 

A.  Operation:  Code  = SUB J . (Staptr ) 

The  first  task  undertaken  by  this  routine  is  to  clean  up  any  search 
structures  (pointers,  counts,  indicators)  (see  Fig.  3.  1)  left  from 

the  previous  search.  This  is  accomplished  by  calling  one  of  two  pro- 
cedures. If  the  current  list  is  the  result  of  a search,  then  CLEA.NP  (in 
a source  file  of  the  same  name)  is  called.  If  the  current  list  is  a restored 
NAMED  list,  then  less  clean-up  is  necessary  and  the  little  that  is  required 
is  done  by  calling  DEEIST  (residing  in  RES  LIS).  The  choice  of  which 
loutine  to  call  is  made  by  testing  the  system  state  indicator, 

RLIC(SST.),  which  is  set  when  a resto.  ed  list  is  in  core, 

SUBJ.  then  resets  an  internal  flag  called  TIT,  which  is  used  to  tell 
the  s ub  - procedure  S.T.  whether  it  is  processing  a subject  or  a title  com- 
mand. A "subject  searchform"  array  of  six  words  is  obtained  from  free 
storage  and  the  pointer  placed  in  the  command  list  (SSF.  (CL)).  Then  S.  T. 
is  called,  passing  along  a pointer  to  the  command  line. 

S.T.  will  attempt  to  set  up  the  search  structures  for  the  individual 
words  in  the  search  term  (described  later).  If  it  succeeds,  a value  of  zero 
is  returned  to  SUBJ.  If  it  fails,  (because  no  unculled  search  words  were 
found)  a negative  value  is  returned. 

When  SUBJ.  sees  a negative  return  it  returns  the  search  form  to 
free  storage,  zeroes  the  pointer  SSF.  (CL.),  and  prints  out  an  error  mes- 
sage to  the  user  stating  that  no  searchable  words  were  found  in  his  request. 

If  SUBJ.  gets  a zero  return  from  S.T,  it  sets  the  SNX(SST  .)  in- 
dicator (search  not  yet  executed)  and  returns  to  CLP. 

B.  Procedures  Calling  SUBJ: 

C LP( v ia  CALLIT) 

C.  Procedures  Called  by  SUE5J  : 

C LEAN  P,  DELIST,  FRET,  FREZ,  S.T,  TYPEIT 


3.  2 , 2.  2 


COMMON  Refe 

r e nc  e s : 

X a rn  e 

Meaninn 

Inte  rrocated0 

Chancre9 

RXICfSST.  . 
SXX(SST  . i 
5SF(CL.) 

Restored  list  in  c-^re 
Search  not  executed 
SuDjeo:  s e a r c r i r o m 

V 

V 

X 

x 

Argurr.ents  : 

Staptr;  ASCII  pointer  to  command  line 

P . Va  lue  s : 

Codr  ' 0 

G.  Error  Codes: 

-2:  error  dissecting  command  line 

H . Me  s s ages  : 

1.  "Your  search  term  contained  no  searchable  words.  Please  review 
your  search  request.'’  ($inter3$) 

I.  Length: 

60  °r  4 8 words 
o 1 U 

J . Sour c e : 

INTPRT  ALGOL 

K.  Files  Referenced 
None 


i83 


3. 2. 2. 3 TIT  LZ 


Purpose 

To  interpret  TITLE  commands 


Des  c notion 

A.  Operation:  Coce  “ l ITLn  (otaptr; 

This  procedure  performs  most  of  the  functions  of  the  procedure 
SUBJ.  except  that  it  sets  up  a pointer  to  the  title  search  form  (TSF  .(CL.)) 
and  turns  on  the  title  indicator,  TIT.  Before  calling  CLEANP  to  clean 
up  the  previous  search  structure,  it  examines  SNX(SST.)  ( s_ea  rc  h - n.ot  - yet 
executed  flag)  to  see  if  a previous  s ubj  ec  t command  on  the  same  line  has 
set  up  a structure  which  should  not  be  deleted.  The  value  returned  from 
S.T.  is  processed  in  the  sarnie  way  as  in  the  procedure  SUBJ. 

B.  Procedure  Calling  TITLE: 

CLP  (via  CALLIT) 

C.  Procedures  Called  by  TITLE: 

CLEANP,  DELIST,  FRET,  FREZ,  S.T,  TYPEIT 


D. 


COMMON  References: 


Name 


Meaning 


Inte  r rogated ? Changed7 


RLIC(SST  . ) 
SNX(SST.) 
TSF.  (SST.) 


Restored  list  in  core 
Search  not  executed 
Title  search  form 


x 

x 


X 

X 


E.  Arguments: 

Staptr:  ASCII  pointer  to  command  line 

F . V alues : 

Code  = 0 


G.  Error  Codes: 

Code  = -2:  error  dissecting  command  line 

H . Me s s ages  : 

"Your  search  term  contained  no  searchable  words.  Please  review 
your  search  request1' ($inte  r3$) 
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3. 2. 2. 3 


I.  .Length: 

04^  or  52  j f words 

J.  Source: 

IXTPRT  ALGOL 

K.  Piles  Referenced: 

None 


5 D 
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3. 2.  2. 4 S . T 
Purpos  e 

To  construct  search  form. 

De  s c r ipti  on 

A.  Operation:  Code  = S.T(Staptr) 

Up  to  seven  simultaneous  search  words  can  be  handled  by  Intrex. 

S.T  calls  free  storage  for  an  array  of  seven  slots  for  pointers  to  the  word 
search  forms.  The  pointer  to  this  array  is  called  the  "simple  search  list 
pointer"  and  is  inserted  into  the  appropriate  component  of  the  subject 
search  form,  SSL.  (SSF.).  The  mode  component  of  SSF.,  which  specifies 
the  searching  mode,  is  currently  set  to  zero,  indicating  a subject/title 
search  with  no  affix  searching.  (Pointers  to  the  affixes  of  the  words  are 
later  set  up  for  possible  affix  matching  in  some  future  stage  of  develop- 
ment.) NEXITM  is  then  called  to  find  the  end  of  the  search  command 
(next/)  and  extract  the  er.  ; search  term  from  the  command  line.  The 
term  is  copied  into  free  storage  and  the  pointer  to  it  is  inserted  into  the 
"name  pointer"  component  of  the  subject  search  form,  N.(SSF.). 

Anothe  r (six- element)  array  is  obtained  from  free  storage  for  each 
word  in  the  term  and  its  pointer  is  placed  into  one  of  the  seven  slots  of  the 
array  pointed  to  by  SSL.  These  six-word  arrays  are  called  the  "Inverted 
Pile  search  forms"  and  the  pointers  to  them  are  the  IFSFP’s , Inverted- 
File-Search  - form-pointers  , 

NEXITM  is  then  called  repeatedly  to  isolate  the  words  of  the  sub- 
ject term  and  pointers  to  the  words  are  pa-  sed  to  the  stemming  procedure, 
STEM  (described  below).  The  pointer  to  the  stemmed  word,  returned  by 
STEM,  is  inserted  into  the  name  component  of  its  own  Inverted  File  search 
form.  Pointers  to  the  affix  and  the  search  mode  are  also  inserted  into  the 
appropriate  components  of  the  IFSF,  along  with  the  weight  5 attribute 
pointer  if  TIT  indicates  a title  search  term. 

After  all  search  words  have  been  processed,  the  number  of  words 
(from  one  to  seven)  is  inserted  in  the  decrement  of  the  SSL.  pointer  and  a 
zero  value  is  returned  to  the  calling  routine. 


1S6 
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3. 2 . 2 . 4 


A sample  search  structure  is  presented 
various  pointers  and  structures  as  they  appear 
pretation  of  the  search  request. 

B.  Procedures  Calling  S.T: 

SUBJ.,  TITLE 

C.  Procedures  Called  by  S.T: 

COPY,  FRET,  FREZ,  NEXITM,  STEM,  TYPEIT 

D.  COMMON  References: 

N one 

E . Arguments: 

staptr:  ASCII  pointer  to  command  line 

F . V alue s : 

Code  - 0 

G.  Error  Codes: 

-2:  error  dissecting  command  line 

H.  Messages: 

"You  have  used  more  words  in  your  search 
can  handle.  Intrex  will  now  search  on  the 
words  you  have  given."  ($inter  1 $) 

I.  Length: 

1 3 07 g or  711  1Q  words 

■J . Source: 

INTPRT  ALGOL 

K,  Files  Referenced: 

None 


request  than  the  system 
first  seven  significant 


in  Fig.  3.1  showing  the 
after  the  described  inter- 


IS  7 
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Fig.  3.1  Subject/Title  Search  Structure 
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3. 2. Z.  5 


3.Z.Z.5  STEM 


^ r po s e 

To  remove  endings  from  search  words. 

De  s c r iption 

A.  Operation:  STR  = ST  EM(WPT  R,  CODE) 

STEM  is  called  by  S.T.  for  each  word  of  a subject  or  title  term.  It 
receives  an  argument  containing  a pointer  to  the  word  to  be  stemmed,  and 
returns  a pointer  whose  decrement  component  has  been  decreased  to  con- 
tain only  the  number  of  characters  in  the  stem.  If  no  ending  can  be  re- 
moved, the  pointer  is  unchanged  and  the  stem  is  the  entire  word. 

STEM  begins  by  extracting  from  the  word-pointer  the  address  and 
length  of  the  character  string  to  be  stemmed  (which  we  will  refer  to  as  the 
"word")-  The  length  of  the  word  is  used  to  determine  the  maximum  length 
of  the  ending  which  can  be  removed  (or  equivalently  the  minimum  length 
of  the  stem).  Words  of  over  thirteen  characters  have  the  maximum  ending 
length  set  at  eleven,  while  those  under  four  characters  are  not  stemmed 
at  all.  For  all  other  lengths,  the  minimum  stem  length  is  three.  (All 
character  counts  are  in  terms  of  ASCII  characters,  not  Intrex  special 
c ha r ac  te  r s«) 

The  w o r d - pointe  r is  then  incremented  by  three  characters,  skipping 
past  the  minimum  stem  to  point  at  the  first  possible  ending  character.  The 
remaining  characters  of  the  word  (the  possible  ending)  are  ccoied  into  a 
temporary  storage  area  for  comparison  to  the  entries  in  the  ending  table. 
The  actual  comparison  is  m le  by  a call  to  VSRCH  (described  in  Section 
3.  4.5.5),  which  searches  the  ending  table  starting  at  beginning  of  the  ending- 
group  of  this  length.  If  no  match  is  found  in  that  length  group,  the  ending 
length  is  reduced  by  one,  the  copied  ending  is  shifted  one  character  to  the 
left  (by  calling  SHIFT,  described  with  VSRCH),  and  STEM  loops  back  to 
call  VSRCH  again.  This  is  repeated  until  either  a matching  ending  is  found 
or  the  ending  length  reaches  zero.  If  the  length  becomes  zero,  the  attempt 
to  stem  is  unsuccessful  and  STEM  returns  the  original  pointer  to  the  calling 
prog  r am . 
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If  a potential  matching  ending  is  found,  V5RCH  returns  the  address 
at  which  the  ending  resides.  This  address  is  used  to  calculate  the  depth 
into  the  group  of  this  particular  ending.  This  depth  and  the  length  of  the 
ending  which  matched  combine  to  form  the  "ending  - code"  a 12-bit  rep- 

resentation of  the  ending  which  is  being  removed  from  the  word. 

However,  since  VSRCH  only  finds  a match  on  the  first  computer  word 
of  the  ending  (up  to  four  characters),  the  remaining  computer  words,  if  any, 
must  also  be  compared  before  a match  can  be  claimed.  This  is  done  within 
the  body  of  STEM.  If  a mismatch  is  found  in  one  of  the  remaining  words  of 
characters,  the  e nding  - poi  nte  r is  moved  up  to  the  next  ending  in  the  table 
and  VSRCH  is  called  again. 

Once  a full  match  has  been  made,  the  ’’condition  code"  associated 
with  this  ending  is  extracted  from  the  ending  table.  The  word-pointer  is 
then  advanced,  if  necessary,  to  point  at  the  ending  to  be  removed  if  the 
condition  code  allows* 

Now,  the  condition  code  is  used  to  compute  the  selection  of  a switch 
number,  which  will  route  STEM  to  one  of  many  possible  tests,  each  one  de- 
signed to  determine  if  the  ending  should  be  remov'ed  in  the  existing  circum- 
stances. For  a detailed  explanation  of  the  stemming  algorithm,  see 
Reference  8. 

Tf  the  condition  test  is  passed,  STEM  finishes  by  adjusting  the  pointer 
to  the  new  stem,  constructing  the  ending-code  and  inserting  it  in  the  location 
provided  by  the  second  argument  of  the  call  to  STEM,  and  returning  to  the 
calling  program* 

Procedures  Calling  STEM: 

S . T 

Procedures  Called  By  STEM: 

INC,  COPY,  VSRCH,  SHIFT,  GET,  DEC  1 

COMMON  References: 

N one 

Arguments  : 

WPTR:  ASCII  Ptr. 

CODE  : to  be  filled 

i30  - 


B. 


C. 


D. 


E. 


O 

ERIC 
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E . Values: 

STR  = pointer  to  stemmed  word 

C R Error  Codes: 

None 

H . Me s s ages  : 

None 

I.  Lengtn: 

14538  °r81110 

J . Source  : 

STEM1A  ALGOL 


in 


-176- 


3.2,3.! 

3.  2.  3 Author  Command  Interpretation 


3.2.  3 . i INIAUT 


Purpos  e 

To  initialize  the  AUTHOR  procedure 
De  sen  pt  ion 

A.  Operation:  INIAUT(  ) 

This  proccjire  initializes  the  delimiter  strings  and  pointers  to  he 
used  by  NEXITM  in  dissecting  the  comman-  line.  It  is  called  by  the  seg- 
ment initializer  daring  the  fixed  parameter  initialization  phase,  and  its 
coding  area  is  given  over  to  i z e storage  via  F RALG  after  execution. 

B.  Procedures  Calling  INIAUT: 

SEGINT 

C.  Procedures  Called  By  IN IA U T : 

FRALG,  . C.  ASC 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F . V alues  : 

None 

G.  Error  Codes: 

"lone 

H . Me s s ages  : 

None 

I.  Length: 

2 4 0 or  Z 0 . _ words 
a 1 U 

J . S ou  rc  e : 

AUTHOR  ALGOL 


K. 


O 

ERIC 


Files  Referenced: 
None 


102 


author 


■! u rpo.se 


■ • inter  u ret  A U f H O R 


jmmana  s . 


De  s c npUon 

A . Operation:  C o a e - AU  i HOR  (Ptr  j 

AUTHOR,  like  SUBJ.  and  TITLE,  yets  up  a new  search  struc  ture 
and  discards  any  old  structure  which  may  exist  from  a previous  search  or 
restored  list.  If  the  current  List  is  a restored  NAMEd  list.  (RLIC(S.S  T ,) 

- true),  then  DEULST  is  called.  If  it  is  the  result  of  a search,  then  SNX(SST  . ) 
is  examined  to  see  if  the  search  form  was  just  set  up  by  a previou  -arch  on 
the  same  command  line.  If  this  A not  the  case,  CLEANP  is  called  to  discard 
the  previous  search  form.  AUTHOR  then  perlorms  its  work  of  s e tt  i n g up  a 
new  search  form  by  calling  three  s ub  - p r oc  e d u re  s , GATP,  LN,  and  AH  which 
Lire  described  in  detail  in  the  fob  jwir.g  sections. 

Figure  3.2  shows  the  structure  set  up  by  an  AUTHOR  command. 

B.  Procedures  Calling  AUTHOR: 

CLP  (via  CALLIT) 


C.  Procedures  Called  By  Author 

AI,  CLEANP,  DELIST,  GATP,  LN 

D.  COMMON  References: 

Name  Meaning  Inte  rrogated ? Changed? 

RLIC(SST .)  Restored  list  in  core  * 

SNX(3ST.  ) Search  not  executed  x 

E.  Arguments: 

Ptr:  ASCII  pointer  to  command  line 


F . Value  e : 

Code  = 0 


G 


Error  Code  s : 


error  parsing  command  line 


C ode 


-lib- 


I9i 


Fig.  3.2  Author  Search  Structure 


v o n c 


I.  Length: 

26h  or  22  10  words 

J.  Scurf ^ : 

AUTHOR  ALGOL 

K.  Files  Referenced: 

None 


3.  2 
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GA  I A 


PurPC'S  e 

_ 

To  get  author  template 
Peso  ription 

A.  Operation: 

yy  fj\ ' - element  array  is  obtained  from  free  storage  and.  its  pointer 

deposited  in  the  Author  Search  P orm  component  of  the  command  list 
(ASF.  (CP.)).  Then  a six-element  array  to  be  used  as  the  Author  Inverted 
File  search  form  is  borrowed  from  free  stcraL  A pointer  to  this  array 

is  inserted  mto  the  AIFSF  . omponent  of  the  ASF.  The  search  mode  of 
both  these  for  m s is  then,  set  tu  the  value  i ound  m RA i X*  \ T O T .)  < o r d i n.a  r i 1 y 
set  to  10  by  INIPOT  during  fixed  parameter  initialization).  Finally,  SNX 
\SST  .}  is  set  to  indicate  a search  is  pending  and  a zero  value  is  returned 
to  AUTHOR. 

B.  Procedures  Calling  GATP: 

AUTHOR 

C„  Procedures  Called  By  GATP: 

FREZ 

D.  COMMON  References: 

Name  Meaning  Inte  rrogated?  Changed9 

SNX(SST.  ) Search  not  executed  x 

Ru\M(POT.)  Residual  author  mode  x 

E.  Arguments: 

N one 

F . V alue  s : 

None 

G . Error  Codes: 

None 

H.  Messages: 

N one 


O 


19  6 
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THOR  \LGOH 


PI.  Tiles  Referenced: 
N o n e 


137 
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3 . 2 . 3 . 4 LN 


Purpose 

» 

To  process  Author's  last  name 


Description 


A.  Operation:  Code  — LN(  ) 

The  pointer  to  the  command  line  passed  to  AUTHOR  by  CLP  is 
used  by  LN  to  read  the  author's  last  name  from  the  command.  NEXITM 
is  called  with  this  pointer  as  an  argument  and  the  returned  pointer  to 
the  name  is  deposited  in  the  name  slot  of  the  author  -search-form, 

N.  (ASF.  (CL.)).  If  NEXITM  fails  to  extract  a name,  a -2  error  code  is 
returned  to  AUTHOR. 

If  the  name  is  found,  an  appropriate  amount  of  free  storage  is 

utilized  and  the  full  name  (including  first  name  or  initials,  if  any)  is 

copied  into  the  free  storage  area.  The  pointer  in  N.  (ASF.  (CL.))  is  then 

% 

changed  to  point  to  this  copy. 

Now  NEXITM  is  employed  to  isolate  the  last  name  only  by  includ- 
ine  a.  comma  in  the  list  of  item  delimiters.  The  last-name -pointer  is  in- 
serted into  the  name  slot  of  the  Inverted-File-search-form,  N.(AIFSF. 
(ASF.  (CL))),  a copy  of  the  last  name  is  then  placed  in  free  storage  and 

the  d.  pointer  is.  modified  to  point  to  the  copy.  — -•  ......  

If  the  item  delimiter  found  by  N.EXJTM  was  a slash,  no  first  name 
or  initials  were  found  and  LN  returns  to  AUTPIOR  with  a value  of  zero. 
Otherwise,  the  mode  of  both  the  author-search-form  and  the  Inverted- 
File-search-form  is  modified  to  indicate  that  an  affix  search  is  to  be  per- 
formed (mode  > 100).  Slots  for  the  author's  initials  and  £or  its  pointer  are 
obtained  from  free  storage  and  value  of  1 is  returned  to  AUTHOR, 
i B.  Procedures  Calling  LN: 

AUTHOR 

C.  Procedures  Called  By  LN:  • 

COPY,  FREE,  FREZ,  NEXITM 


0 

ERIC 


D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

Residual  author  mode  x 


RAM(POT.) 


V 


198 
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E.  Arguments: 

None 

F.  Values : 

Code  = 0 

G.  Error  Codes: 

Code  = -2:  last  name  not  found 

H.  Messages: 

None: 

I.  Length: 

_ ; 

21t>g  or  141^q  words 

J.  Source: 

AUTHOR  ALGOL 

* 

A 

K.  Files  Referenced: 


199 
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3.2.3. 5 A1  • 

Purpose 

To  process  author's  initials  . 

* 

Description 

A-  op;r;;0ced.. zll « *» *• — *™nd 

and  uses  them  as  the  affix  part  of  j^^XITM  is  called 

First,  an  initial -counter  is  r 

to  get  the  next  item  from  the  command  line,  using  space,  Perl°  ^ 

S j f ■*-  --  Tf  NEXITM  fails  to  return  a pointer, 

slash  as  the  item ^ end  of  the  command  has  bee, 

tlacTel1  Tthe  delimiter  is  not  a stash,  an  error  code  oi  -Z  is  returned 
. att-HOR  Otherwise  , all  the  initials  have  been  extracted. 

*"■  ’ NEXITM  returns  a pointer  to 

TiTTnTsl:Z:\t  Z initial  counter  is  incremented 

s » «« - - -r  :L*r,Tr  - 

If  more  than  three  initials  are  sew  , 

only  the  first  three  are  processed.  • 

When  an.  initials  have  been  packed  into. the  affix  slot,  its  pnmte 
When  an  Inverted  File-search-form, 

deposited  into  the  appropriate  par^of  t 

AFL.  (AIFSF.  (CL.  )).  along  with  the  relevent  counts.A 
turned  to  AUTHOR.  .. 

B.  Procedures  Calling  All 

author 

/ 

Qm  Procedures  Called  By  AI. 

--  GET,  NEXITM,  TYPEIT 

D.  COMMON  References: 

None 


, j iliree  to  a computer  word,  left  justified 
*SJSTS.r  g^en  on(y  its  first  letter  is  used. 

oDn 
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E.  Arguments: 

None 

F . V alues  : 

Code  = 0 

G.  Error  Codes: 

Code  = -2:  initials  not  found 

H.  Messages": 

"The  AUTHOR  command  can  accept  a maximum  of  three  initials. 
All  others  are  ignored."  ($inter2$) 

I.  Length: 

224g  or  148jq  words 

J.  Source: 

AUTHOR  ALGOL 

K.  Files  Referenced: 

None 


© 


201 
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3.  2.  4 Primary  Search  Control 
3.2.4.  1 ' SEARCH 

Purpose  . 


To  control  search  of  Inverted  Files 
Description 


A.  Operation  Code  = SEARCH  ( ) 

The  main,  controlling  procedure  called  SEARCH  is  very  short 
and  simple.  It  does  some  initializing,  such  as  turning  on  the  "blip" 
feature  (which  indicates  to  the  user  when  his  search  is  being  processed 
by  CTSS),  and  resetting  the  appropriate  indicators,  state  flags  and  modes. 
It  then  calls  the  three  search  routines,  SSRCH  (subject),  TSRCH  (title), 
and  ASRCF  (author)  in  that  order.  If  any  of  those  routines  returns  to 
SEARCH  with  a negative  value,  indicating  a failure  to  locate  the  search 
request,  no  further  search  attempts  are  made. 

After  calling  the  individual  search  facilities,  the  RRL(CL.)  pointer 
to  the  resulting  reference  list  is  examined  to  see  if  it  has  been  filled  by  a 
successful  search.  If  so,  the  RRLE  bit  of  the  system  state  table  is  set  to 
indicate  that  a resultant  reference  JList  ^xists.  The  document  count  is 
copied  frorruthe  pointer  in  RRL.  to  the  DCNT  slot  of  the  command  list. 

Finally,  the  blip  is  turned  off,  the  last  Inverted  File  segments  to 
be  opened  during  the  search  are  closed,  if  necessary,  and  SEARCH  returns 
to  the  Intrex  supervisor,  (SUPER). 

O' 

B.  Procedures  Calling  SEARCH 

SUPER  (via  CALLIT) 

C.  Procedures  Called  By  SEARCH: 

ASRCH,  CLOSE,  SETBLP,  SSRCH,  TSRCH 


D. 


COMMON  References: 


Name 


Meaning 


Interrogated  ? 


SNX(SST .) 
RRLE(SST.) 
BLIP(POT.) 
IFS2  (POT.) 


Search  not  executed 
Reference  list  exists 
Blip  characters  x 

Name2  of  Inverted  Files  x 


Changed? 

x 

x 


0 

ERLC 
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E.  Arguments:  ' 

N one  V 

F.  Values: 

Code  = 0:  search  succeeds 

G.  Error  Codes: 

Code  = -1:  search  fails  (I/O  error) 

H.  Messages: 

None 

^ 1.  Length: 

157g  or  llljp  words 

J.  Source: 

SEARCH  ALGOL 

K.  Files  Referenced: 

AInnn  date 


203 
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3. 2. 4. 2 SSRCH,  TSRCH,  STRCH  - — 

Purpose 

To  control  subject/title  searches 
Description 

A.  Operation:  Code  = SSRCH(  ) 

Code  = TSRCH(  ) 

Code  ~ STRCH(SFP) 

The  heart  of  the  search  module,  as  far  as  subject/title  searches 
are  concerned,  is  in  STRCH.  This  is  where  the  individual  query  word's 
search  forms  (set  up  by  S.  T.  in  INTPRT)  are  selected,  passed  to 

i 

IFSRCH  for  look-up  in  the  Inverted  Files,  and  intersected  by  calls  to 
ANDER.  Since  STRCH  is  used  for  both  subject  and  title  searches,  it  is 
set  up  for  one  or  the  other  by  the  smaller,  control  routines  named  SSRCH 
and  TSRCH,  respectively.  Although  these  are  separate  routines,  they 
are  so  closely  associated  that,  for  purposes  ox  operational  description, 
they  may  be  clumped  together  with  STRCH. 

SSRCH  is  the  first  search  procedure  called  by  SEARCH.  It  exam- 
ines the  £ubject-j^ea rch- form  slot  of  the  j;ommand_list  (SSF.  (CL,.))  to  see 
if  a subject  search  has  been  requested.  If  that  slot  is  empty,  return  is 
immediately  made  to  SEARCH  with  the  "subject  flag"  reset. 

If  a pointer  is  found  in  SSF.  (CL.),  the  "subject  flag"  is  set,  the 
"anding  mode"  for  ANDER  is  set  to  zero  (causing  term  number  matching), 
and  STRCH  is  called  with  the  pointer  as  an  argument.  Upon  return  to  SSRCH, 
the  pointer  to  the  rearranged  inverted  File  search  harm-pointers  (explained 
below),  is  stored  in  a component  of  the  commarv  list  called  RESUB.  The 
currently  active  Inverted  File  segment  name  is  saved  for  possible  closing 
later  in  SEARCH,  and  SSRCH  returns  to  SEARCH  with  the  same  value  it 
received  from  STRCH  (a  zero  if  no  error  condition  found). 

TSRCH  which  is  called  next  by  SEARCH,  performs  essentially  the 
same  operations  as  SSRCH,  except  that  it  takes  the  title- search-form- 
pojnter  from  command  list  and,  if  not  zero,  passes  it  to  STRCH.  It  also, 
sets  the  "title  flag"  and,  if  the  "subject  flag"  is  also  on,  sets  the  "anding 
mode"  to  1 so  that  ANDER  will  ignore  term  numbers  in  intersecting  the 


0 


204 


J 
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title  reference  lists  with  the  subject  list. 

In  TSRCH,  upon  return  from  STRCH,  the  pointer  to  the  re- 
arranged title  Inverted  File  search  form  pointers  is  inserted  into  the 
command  list  slot  called  RETIT. 

The  first  thing  STRCH  does,  when  called  by  SSRCK  or  TSRCH, 
is  to  extract  the  number  of  query  words  (Inverted  File  search  forms)  in- 
volved in  the  search  from  the  decrement  of  the  pimple  search  list  pointer. 

If  this  number  is  greater  than  1,  it  means  that  reference  Hsts  from  the 
Inverted  Files  are  going  to  have  to  be  intersected  by  ANDER  (the  general 
Boolean  procedure).  In  order  to  improve  the  efficiency  of  the  "anding" 
process,  it  is  desirable  to  start:  off  with  a list  which  s not  too  large.  The 
object  is  to  take  advantage  of  the  fact  that  the  resulting  list  can  be  no 
longer  than  the  smallest  individual  list.  An  easy  and  quick  way  of  getting 
some  idea  (although  not  an  exact  figure)  of  the  size  of  the  lists  involved 
in  Ue  search  before  they  are  finally  looked-up  in  the  Inverted  File  is  to 
look  at  the  main  directory  and  see  how  many  sections  are  devoted  to  hold- 
ing each  list.  The  actual  method  of  doing  this  is  described  below  under 
MEADIR.  At  this  point,  it  suffices  to  point  out  that  a procedure  named 
RECRD  is  called  by  STRCH  which  uses  MEADIR  to  find  a list  not  longer 

r 

than  one  Inverted  File  segment  among  those  which  will-be  looked-up.  If 

l 

one  of  that  size  is  found,  it  is  placed  at  the  top  of  the  group  of  search 
form  pointers,  trading  places  with  the  one  which  was  there.  If  none  is 
found  to  be  less  than  one  section  in  length,  then  the  smallest  one  is  put 
at  the  top.  This  is  done  by  creating  a new  list  of  Inverted  File  search 
form  pointers.  A pointer  to  this  new  list  is  returned  to  SEARCH  from 
REORD  to  be  used  in  setting  up  sequential  calls  to  IFSRCH  for 
locating  the  search  words  and  extracting  their  reference  lists.  This 
pointer  to  the  re-ordered  list  is  later  inserted  into  the  command  list  as 
described,  above.  \ 

Once  the  list  of  pointers  is  re-ordered,  they  are  extracted,  one  by 
one,  and  fed  to  IFSRCH  for  the  look-up.  Other  preparations  are  made  on 
each  search  form,  however,  before  IFSRCH  is  called.  If  an  attribute  list 
exists  in  the  main  search  form,  it  is  transferred  to  the  individual-word 
search  form  and  the  attribute  search  indicator  is  turned  on.  If  the  number  of 
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words  to  be  iooked-up  is  oner  then  a code  is  sent  to  IFSRCH  to  determine 
the  selection  of  common  buffers  into  which  to  read  the  list.  (See  descrip- 
tion of  IFSRCH  in  Section  3.  2.  5.1) 

IFSRCH  is  called  with  three  arguments.  They  are  the  Inverted 
File  search  form  pointer,  the  number  of  the  word  being  processed,  and 
the  buffer  code.  IFSRCH  returns  with  a pointer  to  the  resulting  reference 
list  (ox  a zero  if  the  search  failed)  and  the  name  of  the  Inverted  File  seg- 
ment in  the  argume  nt  which  sent  the  buffer  code. 

STRCH  then  examines  the  "result"  slot  of  the  search  form  for  the 
presence  of  IFSRCH  error  coder.  If  an  error  code  is  found,  an  error  mes- 
sage is  recorded  in  the  Monitor  File  and  another  is  typed  to  the  user.  If 
this  occurs,  the  search  is  aborted  and  an  error  code  of  -3  is  returned  to 
SEARCH. 

If  no  error  is  found  in  the  "result"  slot,  the  reference  pointer  is 
examined.  If  it  contains  a zero,  the  search  was  unsuccessful  and  STRCH 
return..,  a value  of  - 1 to  SEARCH. 

A successful  search  returns  a reference  list  pointer  from  IFSRCH 
to  STRCH.  Before  this  pointer  is  used  for  further  processing  of  the  search 
query,  the  need  for  attribute  matching  is  determined.  If  the  attribute  search 
indicator  is  on  and  STRCH  is  processing  other  than  the  first  word  of  a search, 
then  a second  attribute  search  indicator  is  turned  on  to  be  used  as  an  argu- 
ment when  calling  ANDER  for  the  intersection  of  this  list  with  the  previously 
acquired  list.  On  the  other  hand,  if  this  word  is  the  first  and  only  one  of  the 
search,  then  a specialcall  must  be  made  to  the  attribute  screening  routine, 
ATSCRN,  from  STRCH.  ATSCRN  accepts  the  reference  pointer  as  an  argu- 
ment, selects  only  those  references  which  match  the  required  attributes,  and 
returns  a pointer  to  the  new  list. 

Next  the  main  reference  pointer  at  RRL.  (CL. ) is  examined  to  see  if 
any  previous  look-up  has  produced  a list.  If  this  pointer  is  zero,  the  current 
reference  pointer  supplied  by  IFSRCH  or  ATSCRN  is  inserted.  For  this  first 
obtained  list,  the  pointer  is  also  saved  aside  for  future  use  by  STRCH  and 
the  name  of  the  Inverted  File  segment  is  remembered. 


\ 
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If  a pointer  already  exists  in  RRL.{CI  .)>  then  the  list  it  points  to 
must  be  intersected  with  the  current  list.-AND.ER  is  called  with  these  two 
list  pointers  as  arguments.  Additional  arguments  are  the  "anding  mode” 

(set  by  SSRCH  and  TSRCH)  and  the  most  recently/attribute  search  indicator, 
which  will  cause  ANDER  to  screen  attributes,  before  intersecting  the  lists, 
via  calls  to  BUFSCN  (see  Section  3.  3.4.7).  ANDER  returns  a pointer  to 
the  intersected  list  which  becomes  the  new  RRL.  (CL.),  after  the  old  aug- 
mented list  pointer  associated  with  the  old  RRL.  (CL.)  is  qfeleted. 

The  current  list  pointer  (before  ANDing)  is  also  deleted  and  the 
source  Inverted  File  is  closed. 

If  the  new  resultant  reference  list  pointer  is  a zero,  then  STRCH 
returns  a -1  value  to  SEARCH  indicating  that  the  search  failed.  If  the  new 
pointer  is  less  than  zero,  this  indicates  an  error  condition  during  ANDing 
and  a -2  value  is  returned  to  SEARCH  to  signal  the  error. 

When  the  new  pointer  is  a list  pointer,  the  number  of  documents 
involved  in  the  list  is  extracted  from  the  decrement  and  inserted  into  the 
result  slot  of  the  Inverted  File  search  form  of  this  word. 

If  there  are  more  words  to  process,  STRCH  then  loops  back  to  l elect 
the  next  search  form  and  use  _it  in  calling  IFSRCH  etc. 

After  processing  all  the  words,  or  search  forms,  the  resultant  refer- 
ence list  is  saved  in  the  search  foim  of  this  word  for  possible  future  use 
(unused  at  present),  the  first  list  pointer  is  deleted,  unless  it  is  the  only 
one,  and  a zero  value  is  returned  to  SSRCH  or  TSRCH  and  hence  to  SEARCH. 

B.  Procedures  Calling  SSRCH,  TSRCH,  STRCH: 

SEARCH  (calls  SSRCH,  TSRCH) 

SSRCH  (calls  STRCH) 

TSRCH  (calls  STRCH)  • 

C.  Procedures  Called  By  SSRCH,  TSRCH,  STRCH: 

ANDER,  ATSCRN,  CLOSE,  IFSRCH,  LOCMES,  REORD,  - 

SHOWER,  TYPEIT  , 
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D.  COMMON  References: 


Name 

SSF.(CL.  ) 
RESUB(CL.  ) 

tsf;(cl.) 

R E TIT  (CL.  ) 
RRL.  (CL.) 

Meaning  1 Interrogated? 

Subject  search  form  x 

Reordered  subject  list 
Title  search  form  x 

Reordered  title  list 
Resultant  reference  list  x 

Arguments : 

* %!' 

SFP:  address  of  title  or  subject  search,  form 


Changed? 


x 


x 

X 


\ 

\ 


F . Values  : 

Code  = 0 search  successfull  ^ 

Code  =—  l search  failed 


Q*  Error  Co^es: 

Code  = -2:  error  during  ANDER 

Code  = -3:  error  during  IFSRCH 


,H.  Messages:  * 

1.  MAn  error  in  tL  files  caused  zero  documents  to  be 

retrieved  in  s u the  word  jc.  Avoid  using  this  word, 

if  error  re-oc^  i$serr$,  $serr2$) 

I.  Length:  • 

5l6g  or  334^^  words 

\ : 

J.  Source: 

SEARCH  ALGOL 


K.  Files  Referenced:  v 

A Innn  date 


\ 
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3.2T4TT  ATSCRN 
Purpos  e 

To  screen  attributes  in  reference  words 
Description 

A.  Operation:  Ptr  = ATSCRN(Ap) 

This  i rocejiure  resides  in  IFSRCH  ALGOL  but  is  called  only  by 
STRCH  and  so  wij/l  be  included  here  and  not  in  the  IFSRCH  description. 

It  is  used  to  compare  specified  components  of  the  references  in  a list  to 
one  or  more  attribute  specifications  as  chosen  by  the  user  in  his  search 
request*  One  argument  is  passed  to  ATSCRN*  This  is  a pointer  to  the  list 
of  references  to  be  screened*  A common  buffer  is  selected  (for  reading 
the  balance  o£>  the  list  from  the  disk/  if  necessary)  by  using  the  buffer 
number  stored  in  the  tag  of  word  three  of  the  augmented  list  pointer  by 
IFSRCH.  This  insures  against  using  a buffer  which  is  being  used  for 
holding  another  Inverted  File  list.  The  address  of  the  first  reference  in 
^Mdie  list  to  be  screened  is  also  obtained  from  the  pointer  and  all  the  neces- 
sary counters  and  indices  are  reset  to  zero*  \j 

fcommon  buffer  1 is  used  as  an  output  storage  area  for  the  refer- 
ences which  match  the  required  attributes  unless  the  entire  list  is  cur- 
rently in  core*  If  some  of  the  references  to  be  screened  are  disk-stored, 
the  disk  address  and  number  of  disk  preferences  are  also  extracted  from 
the  pointer.  A parameter  for  keeping  track  of  t]/e  number  of  references 
in  a disk  record  is  set  to  432  unless  the  disk  fi*le  is  an  Inverted  File  seg- 
ment, in  which  case  it  is  one  less  because  of  the  presence  of  a section 
header*  * 

At  this/  point,  a sub-procedure  named  BUFSCN  is  called  (Section 
3*3*.  4*7)*  It  performs  the  actual  comparison  of  each  reference  to  the  re- 
quired attributes  for  those  references  currently  in  core.  References  which 
BUFSCN  finds  acceptable  are  stored  in  the  output  area  whose  address  is 
supplied  in  an  argument  to  the  call.  Having  processed  this  buffer,  ATSCRN 
decides  if  there  are  more  references  left  on  disk  to  be  processed  and,  if  so, 


ERIC 


\ 

i 


o 

ERIC 
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reads  the  next  block  via  RDWAIT  into  the  same  common  buffer  area.  The 
RDWA1T  variable  RELLOC  is  updated  and  the* number  of  references  left  to 


read  is  reduced* 

The  starting  location  of  this  new  batch  of  references  is  set  (skip- 
ping the  section  header  if  we  are  reading  an  Inverted  File  segment)  and 
ATSCRN  goes  back  to  call  BUFSCN  again.  . v 

After  all  the  references  are  screened,  it  is  determined  whether  all 
the  referenc  es  were  originally  in  core.  If  so,  the  size  of  the  list  was 
simply  reduced  by  the  attribute  screen  but  the  list  is  still  core-stored  and 
continues  to  exist  in  the  same  place  in  core.  Otherwise,  the  output  buffer 
is  written  into  the  Dump  File  (finishing  a job  possibl  y started  by  BUFSCN 
if  it  filled  the  buffer  earlier).  The  Dump  File  record  count  is  updated  and 
a new  augmented  list  pointer  is  constructed  in  place  of  the  old  one  passed 
to  ATSCRN.  A pointer  to  this  augmented  pointer  is  returned  to  the  calling 
program  (STRCH). 

/ i 

B.  Procedures  Calling  ATSCRN: 

STRCH 


C.  Procedures  Called  By  ATSCRN: 

BUFSCN,  RDWAIT,  WRWAIT,  PREPTR 


D.  COMMON  References: 


Name 


Meaning 


Interrogated? 


COMBFn(POT.)  Input. buffer  x 

COMBF l(POT.)  Output  buffer  x 

TOTBLK(POT.)  Dump  File  relocation  x 

DFNl(POT.  ) Dump  File  name  1 x 


< / 

Changed? 


E.  Arguments; 

Ap;  pointer  td  list  of  references 

y 

F.  yialuec : 

Ptr  = pointer  to  screened  references 

G.  Error  Codes;  ' , 

None  ; 
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H 


Mess ages : 
None 


I.  Length: 

455^  or  30110  words 

J.  Source: 

IFSRCH  ALGOL 

K*  Files  Referenced: 

% 

AInnn  date 
DUMnnn  FILE 


b" 

k 


/ 


i 
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3.2.  4 . 4 REORD,  MSADIR 


Purpose 

To  reorder  search  terms 


Des  c riptiqn 

A.  Operation:  Ptr  = REORD  (Lptr,  Nif s ) 

REORD  attempts  to  find  a search  word  among  those  in  the  group 
of  Inverted  File  search  forms  presented  to  STRCH  whose  reference  list 
is  not  long  enough  to  require  more  than  one  section.  If  none  of  the  lists 
are  short  enough,  REORD  selects  the  shortest  one  available.  The 
selected  list's  search  form  pointer  is  moved  to  the  top  of  the  pointer 
list  (unless  it  already  jhappens  to  be  there)  and  the  pointer  which  was 
there  (the  user's  first;  search  word)  is  moved  to  the  old  location  of  the 
small  list  pointer.  This  rearrangement  is  used  by  ANDER  to  optimize  the 
intersection  of  the  lists  involved  in  the  search.  It  is  re  jected  in  the  COUNT 
results  which  are  listed  in  this  rearranged  sequence.  The  original  order 
is  also  saved,  however,  for  the  feed-back  of  the  user's  search  request  (by 


C- 


EVAL), 

Arguments  passed  to  REORD  includes  a pointer  to  the  list  of  Inverted 
File  search  form  pointers  and  the  number  of  pointers  in  that  list.  Initial- 
ization of  REORD  includes  obtaining  the  core  addresses  of  the  two  Inverted 
File  directories  (via  IFSET),  obtaining  an  array  for  storing  the  re-ordered 
list  of  pointers  from  free  storage,  a*id  setting  a vciriable  which  will  hold 
the's  malles  t list  size  found  so  far*  to  a high  enough  value  to  force  selection  of 
the  first  list  as  being  the  smallest  so  far. 

Then,  each  search  word  is  passed  to  the  measuring  routine,  MEADIR, 

which  looks  it  up  in  the  Inverted  File  directories  and  determines  its  approxi- 

\ - 

mate  size.  The  look-up  is  done  in  the  same  way  as  in  LOCSEC , described 
under  IFSRCH.  The  initial  letter  of  the  search  word  is  used  to  select  u re- 
lated slot  in  the  first  directory,  which  supplies  the  address  within  the  second 
directory  where  that  alphabetic  group  begins.  Comparison  is  then  made  be- 
tween the  search  form  word  (converted  to  5-bit  code  by  NAM5)  and  the  abbre- 
viated (no  more  than  7 characters)  entries  of  the  directory. 
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As  long  as  the  search  word  is  greater  than  (beyond)  the  directory 
entry,  the  scan  continues  down  through  the  directory.  If  the  search  word 
is  found  to  be  less  than  (before)  the  directory  entry,  the  "find  point"  has 
been  passed  and  it  can  be  assumed  that  the  list  for  the  word  in  question 
does  not  exceed  one  section  but  was  contained  (if  it  exists  at  all)  in  the 
section  just  passed.  In  the  case  where  the  search  word  and  directory 
entry  are  equal,  an  “overflow-section  counter"  is  incremented  and  the 
comparison  continues  on  to  the  next  directory  entry. 

Once  the  "find  point"  has  been  passed,  the  scan  of  the  directory 
ends  and  the  section  counter  just  mentioned  is  returned  to  REORD. 

Segments  of  the  Inverted  File  which  extend  beyond  10  sections  be- 
cause of  a large  list  in  the  tenth  section  present  a special  problem  since 
the  extra  sections  are  not  represented  in  the  directory.  When  the  "find 
point’1  turns  out  to  be  in  Section  10,  therefore,  a call  to  the  CTSS  routine, 
FSTATE,  is  made  to  determine  the  length  of  the  segment,  from  which  is 
computed  the  additional  sections  to  be  added  to  the  section  count. 

The  section  count  returned  to  REORD  is  *ro  if  the  list  was  con- 
tained in  a single  section.  This  prompts  the  immediate  switching  of  this 
list  pointer  with  the  one  at  the  top  of  the  list.  REORD  then  has  done  its 
job  and  returns  a pointer  t<p  this  re-ordered  list  to  STRCH.  If  the  section 
count  was  greater  than  zero,  it  is  compared  to  the  variable  holding  the 
smallest  section  count  so  far  (set  to  a high  value  during  initialization).  If 

this  section  count  is  smaller,  it  replaces  the  old  count  and  the  position  of 

* \ 

this  search  word  pointer  Within  the  list  is  remembered.  Then  RE Or  D 
loops  back  to  call  MEA DIR  with  the  next  search  word  pointer  &s  an  argu- 
ment. If  all  s earch  words  have  thus  been  measured  without  finding  a non- 
overflow list,  the  position  of  the  smallest  one  is  used  and  switched  with 

the  top  list.  \ 

\ 

B.  Procedures  Calling  REORD,  MEADIR: 

STRCH  (calls  REORD) 

REORD  (calls  MEADIR) 

C.  Procedures  Called  By  REORD,  MEADIR: 

FREZ,  FSTATE,  GET,  IFSET,  NAM5 
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D.  COMMON  References: 


IFS2(POT.  ) 


Name 


Meaning 

Name  2 of  Inverted  Hie 


Inte  r r og  ated  ? C hang  e d ? 

x 


E.  Arguments: 

Lptr:  address  pointer 

Nifs:  integer 

F.  Values: 

Ptr  = pointer  to  new  list  of  pointers 

G.  Errpr  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

360g  or  240j q words 

J*  Source: 

SEARCH  ALGOL 

K,  Files  Referenced: 

Alnnn  date 


\ 
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3. 2. 4.  5 ASRCH 
Purpos e 

To  control  author  searches 


Description 

A.  Operation:  Code  — ASRCH(  ) 

ASRCH  performs  the  same  functions  for  author  search  requests 
that  SSRCH,  TSRCH,  and  STRCH  perform  for  subject/title  searches . 

The  author  search  form  pointer  is  extracted  from  the  command  list.  If 
it  is  zero,  ASRCH  returns  a zero  to  SEARCH. 

If  a pointer  exists,  the_Inverted  File  search  form  pointer  is  ex- 
tracted from  the  author  search  form  and  passed  along  to  IFSRCH  for  look- 
up. The  other  arguments  to  the  IFSRCH  call  are  a 1 (representing  the 
number  of  words  in  the  search  phrase  — in  this  case  only  a last  name) 
and  a buffer  selection  code  (1  or  2,  depending  upon  whether  or  not  a sub- 
ject and/or  title  search  has  already  been  performed).  IFSRCH  returns 
a pointer  to  the  reference  list,  if  the  search  was  successful,  and  the  docu- 
ment count  in  the  result  slot  of  the  Inverted  File  search  form.  If  ASRCH 
finds  an  error  code  in  this  slot,  it  enters  one  error  message  in  the 
Monitor  File  and  prints  another  to  the  user.  In  this  event,  an  error  code 
of  -3  is  rcuarned  to  SEARCH  to  indicate  an  I/O  or  file  structure  error 
has  occurred. 

If  no  error  code  is  returned,  the  reference  pointer  is  examined. 

If  this  is  zero,  it  means  the  search  failed.  In  this  event,  a zero  is  in- 
serted into  the  resultant  reference  list  pointer,  RRL.(CL.)»  and  a " 1 is 
returned  to  SEARCH.  A successful  search  of  the  author  Inverted  File 
calls  for  possible  further  processing  of  the  reference  list.  If  the  search 
was  not  a combined  one  (no  resultant  reference  list  already  exists)  and  a 
screen  on  attributes  is  called  for,  then  ATSCRN  is  called  to  perform  the 
screening  and  supply  a pointer  to  a new  list  of  screened  references. 

It  is  important  to  keep  in  mind , here,  that  the  usual  kind  of  attri- 
bute restriction,  namely  RANGE,  is  not  applicable  to  author  searches  and 
that  the  attribute  matching  in  this  case  is  really  an  affix  (initials)  screen. 
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If  a resultant  reference  list  already  exists,  the  list  returned  from 
JFSRCH  must  be  AlNfDed  with.  it.  The  pointers  to  the  two  lists  are  passed. 

arguments  to  ANDER,  along  with  an  f?andin.g  mode"  of  2 (which  prevents 
trying  to  match  on  term  numbers)  as  an  attribute  search  indicator.  (If  this 
indicator  is  on,  .AInDER,  will  call  BUFSCN  to  sc reenxreferences  with 
matching  attributes  from  the  author  reference  list.) 

j ■ 

ANDER  returns  a pointer  to  the  intersected  list  which  becomes  the 
new  resultant  reference  list.  The  augmented  pointer  to  the  author  list 
is  deleted  from  the  table,  as  is  the  old  resultant  reference  list  pointer. 

If  ANDER  returns  an  error  code  (less  than  zero),  then  ASRCH  re- 
^urns  a ”2  to  SEARCH.  Otherwise,  the  Inverted  File  segment  opened  by 
IFSRCH  is  closed,  the  new  document  count  is  copied  from  the  decrement 
of  the  resultant  reference  list  pointer  to  the  result  slot  of  the  Inverted  File 
search  form,  and  ASRCH  returns  a zero  (success  code)  to  SEARCH. 

B.  Procedures  Calling  ASRCH: 

SEARCH 

C J Procedures  Called  By  ASRCH: 

ANDER,  ATSCRN,  CLOSE,  IFSRCH,  LOCMES', 

^HOWER,  TYPEIT 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

Code  = 0:  if  search  succeeds 

= -1:  if  search  fails 

G.  Error  Codes: 

- £S 

Code  = -2:  error  during  ANDER 

= -3:  error  during  IFSRCH 

H.  Messages: 

"An  error  in  the  computer  files  caused^ero  documents  to  be  re- 
trieved in  searching  on  the  word  BAD*  Avoid  using  this  word  if  error 
re-occurs"  ($serr$,  $serr2$) 


ERIC 


*-The  word  which  triggered  the  error  is  printed  here. 
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I.  Length: 

353g  or  235^^  words 

J.  Source: 

SEARCH  ALGOL 

K.  Files  Referenced: 

None 
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3. 2.4.  6 CLEANP,  STCLN,  ACLN 
Purpose 

To  delete  search  structures 
Description 

A.  Operation:  CLEANP(  ),  STCLN(  ),  ACLN(  ) 

Before  a-  new  search  structure  is  put  together  at  the  command  in- 
terpretation stage,  the  old  structure,  if  one  exists,  must  be  deleted  and 
returned  to  free  storage  (via  FRET).  This  is  also  necessary  when  a 
list  is  formed  by  the  DOCUMENT  command  or  a NAMEd  list  is  being  re- 
stored to  active  status. 

CLEANP  examines  the  main  search  form  pointers  of  the  Command 
List,  SSF.  (CL.),  TSF . (CL.),  and  ASF. (CL.)  to  see  if  any  search  struc- 
ture exists  for  subject,  title,  or  author  searches,  respectively. 

The  presence  of  a subject  and/or  a title  search  structure 
causes  CLEANP  to  call  the  procedure  STCLN,  which  accepts  the  search 
form  pointer  as  an  argument  and  uses  it  to  chain  through  the  structure  re- 
turning the  free  storage  arrays  obtained  by  S.Tr  SUBJ. , TITLE  (see 
Section  3.  2. 2. 4)  and  REORD  (see  Section  3. 2. 4. 4). 

If  CLEANP  calls  STCLN  to  returns  title  search  structure,  an  in- 
dicator is  set  which  tells  STCLN  that  it  must  also  return  an  attribute  and 
mask  for  each  search  word  in  the  user's  query.  In  this  case  the  attribute  list, 
ATL.  (TSF.  (CL)),  is  returned  by  calling  the  procedure  ATLCLN.  (see 
Section  3.2.8.  12). 

If  an  author  search  structure  exists,  CLEANP  calls  ACLN  to  re- 
turn those  structure  arrays.  ACLN  accepts  the  ASF.  (CL.)  as  an  argu- 
ment and  calls  FRET  to  return  the  areas  obtained  by  AUTHOR  when  it 
interpreted  the  user's  AUTHOR  search  request.  The  search  mode  is 
examined  for  the  presence  of  an  affix  (initials)  search,  and  the  affix  list 
is  returned  if  one  exists. 

After  CLEANP  has  used  these  two  sub-procedures,  the  current  aug- 
mented list  pointer  is  deleted  from  the  pointer  table  by  a call  to  DRPPTR 
(Section  3.  2. 4.  8),  unless  the  current  pointer  has  been  NAMEd  (list  type  4). 
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Now  RRL,  , RESUB,  and  RETIT  of  th.3  Command  Li s t are  zeroed  and  the 
RRLE(SST.  ) indicator  is  reset,  thus  destroying  all  indications  of  a ’'re- 
sultant reference  list55.. 

Then,  the  Dump  File  is  truncated  to  zero  length  and  the  number  of 
records  in  the  file,  saved  in  TOTBLK(?OT.),  is  set  to  zero. 

Finally,  CLEANP  calls  FCLEAN  (see  below)  to  clean  up  OUTPUT 
and  RESTRICT  structures. 

B.  Procedures  Calling  CLEANP: 

SUBJ.,  TITLE,  AUTHOR,  RESTOR,  NUMBER 

C.  Procedures  Called  By  CLEANP: 

DRPPTR,  FILCNT,  TRFILE,  FCLEAN,  FRET, 

ATLCLN  (via  CALLIT) 


D.  COMMON  References: 


E. 


F. 


G. 


H. 


Name 


Meaning 


Interrogated? 


SSF.  (CL.) 

TSF.  (CL.) 

ASF. (CL.) 

RRL.  (CL.) 
RESUB(C  L.) 
RETIT(CL.) 
DFNl(POT.) 

T OT  BLK(  POT . ) 
RRLE(SST .) 


subject  search  form 
title  search  form 
author  search  form 
resultant  refer,  list 
reordered  subj.  forms 
reordered  title  forms 
Dump  File  name -one 
Dump  File  block  count 
result.-  refer-list-exists 
flag. 


x 

X 

X 

X 


Arguments: 
UN  one 

V alues : 

None 

Error  Codes: 


None 


Mess  ages  : 
None 


Changed? 


x 

X 

X 

X 

X 
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I.  Length: 

465g  or  309jq  words 

J.  Source: 

CLEANP  ALGOL 

K.  File  References: 

DUMnnn  FILE 
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3. 2.4.7  DELIST 
Purpose 

To  clean  up  list  pointer  and  and  associated  structures. 


Des  c ription 


A.  Operation:  DELIS  T(  ) 

DELIST  first  examines  RRL,  (CL.)  to  make  sure  that  a current 
reference  list  exists.  If  so,  the  type  of  list  is  examined.  Any  type  other 
than  NAMEd  (type  4)  will  prompt  DELIST  to  call  the  procedure  DRPPTR 
(described  next)  to  remove  the  augmented  list  pointer  from  the  table. 

Next,  FC LEAN  (Section  3. 2. 4.  9)  is  called  to  wipe  out  the  old 
OUTPUT  and  secondary  search  (RESTRICT)  specifications.  Other  tasks 
DELIST  include:  setting  the  main  list  pointer,  RRL, (CL.  ) to  zero;  trun- 

cating the  Dump  File  to  zero  and  setting  its  block  count  in  TOTBLK(  HOT.) 
to  zero;  resetting  the  System  State  Table  bits,  RRLE  and  RLIC  (resultant 
reference  list  exists,  and  restored  list  in  core)  to  false. 


B. 

C. 


D. 


Procedures  Calling  DELIST: 

SUBJ.,  TITLE,  AUTHOR,  RESTOR,  IFSRCH, . NUMBER 


Procedures  Called  By  DELIST: 

‘ * * 

DRPPTR,  FCLEAN,  TRFILE 


COMMON  References: 
Name 


Meaning 


Interrogated?  Changed? 


RRL.  (CL.) 
DFNl(POT.) 
TOTBLK{  POT .) 
RRLE(SST„) 
RLIC(SST.) 


result. reference  list 
Dump  File  name -one 
Dump  File  block,  count  y 

result. - refers  list- exists  fla^ 
restored-  list-in-core  flag  \ 


x 

X 


X 

X 

X 

X 


D.  Arguments: 
None 

F.  Values: 
None 
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G. 

H. 

I. 

J. 

K. 


Error  Codes: 
None 

Messages: 

None 


Length: 

5 5 „ or  45  . words 


Source : 

CLEANP  ALGOL 

File  References: 
DUMnn  FILE 
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3. 2. 4. 8 DRPPTR 


Purpose 

Drop  list  pointer  froxr^ table 
Description 

A.  Operation:  DRPPTRf  ) 

The  pointer  in  the  Resultant  Reference  List  slot  of  the  Command 
List,  RRL.(CL.),  points  to  a three-word  augmented  list  pointer.  DRPPTR 
inserts  a zero  into  each  of  the  three  words  of  this  pointer  through  use  of  the 
’’full  word  component'1  facility  of  AED. 

B.  Procedures  Calling  DRPPTR 

DELIST,  AND.  , NAME 

C.  Procedures  Called  By  DRPPTR 

N o ne 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

RRL.  fCL.)  result,  refer,  list  x 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 


H.  Messages: 

None 

I.  Length:  / 

25g  or  words 
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J.  Source: 

CLEANP  ALGOL 


K.  File  References: 
None 
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3.  2.4.  9 FCLEAN 
Purpose 

To  clean-up  OUTPUT  request  form 

Part  of  the  process  of  removing  all  traces  of  a previous  search  in  pre- 
paration for  the  creation  of  a new  list  is  to  discard  the  output  structures 
set  up  by  OUT.  (describe^*in  Section  3.  2.7.2)  and  the  s econdary  s earch 
(RESTRICT)  structure  set  up  by  IN.  (described  in  Section  3.  2. 7.3). 


Description 


A.  Operation:  FCLEAN(  ) 

The  Output  Request  List  Poii^er  in  ORL.  (CL.),  which  points  to  a 
permanent  array  containing  field  numbers  to  be  output,  has  its  decrement 
(count  of  field  numbers)  set  to  zero  by  masking  off  all  but  the  address 
portion  of  the  word. 

Next,  the  Eield  Search  List  pointer  in  ESC.  (CL.)  is  reduced  in  the 
sameway  (eliminating  the  count  in  the  decrement),  and  the  pointers  stored 
in  the  ten-word  array  used  for  holding  RESTRICT  specification  pointers 
are  examined  one-by-one.  The  free-storage  area  to  which  each  one  of 
these  pointers  points  is  returned  via  FRET,  and  the  pointer  itself  is 
changed  to  zero. 

B.  Procedures  Calling  ECLEAN: 

CLEAN-P,  DELIST,  NEWPT 


C.  Procedures  Called  By  ECLEAN: 

ERET 

D.  COMMON  References: 

Name  Meaning  Interrogated? 

ORL.  (CL.  ) output  request  list 

ESL.  (CL,  ) field  search  list 


Changed? 

x 

x 
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E.  Arguments : 

None 

F*  Values: 

None 

G.  Error  Codes: 

None 

H*  Messages: 

None 

I.  Length: 

74g  or  60^^  words 

J.  Source: 

FC LEAN  ALGOL 

K.  File  References: 

None 
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3.  2.  5 Inverted  File  Lookup 

3 . 2 , 5 , 1 IF  5 RC  H 

Purpos e 

To  search  Author  or  Subject  Inverted  Files  for  a list  ’’ 

Desc  ription 

A.  Operation:  Ptr  = IFSRCH  (IFSFP,  WRDNO,  IFS1) 

IFSRCH  accepts,  as  one  of  its  arguments,  an  address  pointer  to 
an  Inverted -File-search-form  . This  array  is  of  the  following  form: 

WORD  1 - mode  (1-3  decimal  digits) 

WORD  2 - name  pointer  (to  ASCII  string) 

WORD  3 — attribute  pointer  (to  list  of  attributes) 

WORD  4 - affix  pointer  (to  list  of  pointers) 

WORD  5 - time  array  pointer  (for  time  checks)' 

WORD  6 - result  (filled  by  IFSRCH) 

The  name  pointed  to  by  word  2 is  looked  up  in  the  Inverted  Files  ^ 
according  to  the  mode  in  word  1.  Although  the  mode  specifies  that  an  exact  c 
stem  match  must  be  made  (0  in  the  units  digit)  , a match  on  affix  strings  as 

well  as  stems  may  or  may  not  be  called  for  (1  or  8 in  the  hundreds  digit). 
The  author  file  will  be"  searched  if  the  tens  digit  is  a 1,  while  an  zero  in 
that  place  specifies  a subject/title  file  search.  " A 

If  an  attribute  list  is  to  be  considered  in  the  selection  of  qualifying 
references,  then  a pointer  containing  the  address  of  the  attribute  mask 
(which  must  immediately  precede  the  attribute  list)  appears  in  word  3 of  the 
search  form.  The  length  of  the  attribute  list  must  appear  in  the  decrement 
of  word  3. 

, Word  4 may  contain  a similar  pointer  to  a list  of  Intrex  pointers, 

which  in  turn  point  to  ASCII  strings  of  endings'  or  author's  initials.  The 
pointer  in  word  4 will  not  be  put  to  use  in  an  affix  string  match,  however,  un- 
less the  mode  in  word  1 calls  for  affix  matching. 

The  other  two  arguments  passed  to  IFSRCH  by  SEARCH,  WRDNO 
and  IFSl,  are  used  to  govern  the  selection  of  common  buffers  which  IFSRCH 

Set  up  (by  SUBJ.  , TITLE,  or  AUTHOR 
Not  presently  used. 

Only  exact  match  mode  is  curren^l^in  use. 

At  present  only 
with  affixes . 


author's  initials  are  used  in  searching 
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will  use  in  reading  the  Inverted  File.  First  WRDNO  tells  if  the  current  word 

is  the  first  word  of  a search  request.  If  it  is,  IFS  1 will  indicate  if  it  is  a 

one-word,  subject,  title  or  author  search  or  a combination  of  them.  The  con 

• ventions  used  in  this  determination  follow  the  outline  below. 

Search  Type 

1-word  subject 
1-word  title,  no  subject. 

Author,  no  subj.  or  title 
1-word  title  with  subj. 

Author  with  subj.  or  title 


IFS  1 = 


Buffer  Used 


1 

1 

1 

2 

2 


b 

5 

5 

4 

4 


If  WRDNO  is  greater  than  1,  then  IFS RCH  used  buffer  3 for  reading  in 
the  Inverted  File  sections.  IFS  1 is  also  used  to  relay  back  to  SEARCH  the 
first  name ^ of  the  Inverted  File  segment  where  the  sought  word  was  found. 

After  establishing  the  buffer  selection  and  the  search  mode  and  in- 
itializing a few  parameters,  IFSRCH  passes  the  pointer  to  the  search  word  to 
a sub-procedure  named  LOCSEC  which  will  look  the  name  up  in  the  Inverted 
File  directories.  LOCSEC  selects  the  appropriate  section  number  of  the  ap- 
propriate Inverted  File  segment  where  searching  should  begin.  The  proper 
RELOC,  or  depth  into  the  file,  is  computed  using  this  section  number,  and 
reading  of  the  file  begins. 

After  checking  for  the  presence  of  a section  header  fence,  the  off- 
set of  theMirst  list  in  the  section  (also  in  the  header)  is  used  to  compute 
the  starting  location  of  the  list.  If  this  offset  is  zero  (meaning  no  list  starts 
in  that  section)  either  the  next  section  or  the-previous  section  is  read;  de- 
pending on  the  direction  of  scan.  Almost  always  the  scan  is  forward.  The 
one  exception  will  be  explained  in  the  writeup  of  LOCSEC. 

When  a list  header  is  located,  a check  is  made  for  the  list  fence 
and  a pointer  to  the  "name"  (search  word)  is  set  up.  The  number  of  char- 
acters in  the  name  and  number  of  affix  codes  associated  with  it  are  set  aside. 
The  string- comparing  procedure  COMPUL  is  called  to  match  the  list  name 
against  the  one  pointed  to  by  the  search  form.  The  return  from  this  proce- 
dure indicates  a high,  low,  or  equal  comparison.  A high  compare  means 
that  the  search  form  word  is  beyond  that  point  in  the  Inverted  File  and  we 
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must  keep  looking.  A low  compare  means  that  the  "find  point"  has  been 
passed  without  making  a match  and  that  (unless  we  are  going  to  work 
backward)  the  search  has  failed.  In  the  former  case,  the  list  header  is 

k- 

used  to  locate  the  start  of  the  next  list  and  IFSRCH  loops  back  to  call 
COMPUL  again.  If  the  end  of  the  section  is  reached  without  reaching 
the  "find  point",  the  next  section  is  read  and  the  search  continues.  If  all 
the  sections  of  a segment  are  scanned  unsuccessfully,  that  segment  is 
closed  and  the  next  one  in  sequence  is  opened  for  reading. 

If  COMPUL  finds  that  the  two  names  match  to  the  end  of  the 
search  form  word,  their  lengths  are  compared.  An  inequality  in  length 
constitutes  a failure  and  the  search  ends  in  a mismatch.  If  the  two  lengths 

are  the  same,  however,  a match  has  been  found  and  the  reference  and  docu- 

< 

ment  counts  are  extracted  from  the  header  of  the  Inverted  File  list. 

At  this  point,  the  affix- s ear ch  indicator  is  examined  and,  if  on, 
the  affix  matching  procedure,  MATAFF,  is  called.  If  affix  matching  is 
successful:  a pointer  to  a list' of  satisfying  references  will  be  filled  upon 

return  from  MATAFF.  If  it  is  unsuccessful,  that  pointer  will  be  zero  and 
the  miss-match  exit  is  taken  from  IFSRCH. 

If  affix  matching  succeeds,  or  none  is  required,  an  indicator  is 
set  and  the  name  of  the  Inverted  File  segment  containing  the  matching  list 
is  plugged  into  the  IFS 1 argument  to  be  returned  to  the  calling  program. 

Now  the  address  of  the  first'1  reference  word  in  the  list  is  com- 
puted by  moving  down  from  the  top  of  the  list  header  the  length  of  the 
header,  name  field,  and  affix  field.  Since  affix  fields  may  spill  over  to 

the  next  section,  a test  must  be  made  to  see  if  the  references  for  this  list 

\ 

are  actually-  in  the  next  section  and,  if  so,  how  far  in. 

Once  the  actual  starting  address  of  the  reference  list  is  established, 
the  number  of  references  that  might  possibly  be  contained  in  the  remainder 
of  the  buffer  is  computed.  If  this  number  is  less  than  the  total  references 
in  this  list,  it  is  used  as  the  core-stored  count  in  word  two  of  the  three- 
part  augmented  pointer  created  by  the  sub-procedure,  PREPTR.  The  re- 
maining references  become  the  disk- stored  count  in  word  three  of  the  aug- 
mented pointer  and,  for  these  cases,  the  name  of  the  Inverted  File  segment 
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goes  into  word  one.  The  disk  and  core  addresses  are  also  inserted  by 
PREPTR  and  the  list  type  is  set  in  the  tag  of  word  two.  If  all  the  ref- 
erences are  contained  in  the  buffer,  the  list  is  considered  a core-store 
list  (type  0)  and  words  one  and  two  of  the  pointer  are  left  blank. 

After  the  augmented  pointer  has  been  created,  it  is  inserted  into 
the  list  pointer  table  (part  of  RESLIS  ALGOL)  by  a call  to  TABENT. 

Finally,  the  document  count  of  the  list,  extracted  earlier  from 
the  list  header,  is  inserted  into  the  decrement  component  of  both  the 
"result11  slot  of  the  search  form  and  the  reference  pointer  returned  to 
SEARCH,  which  will  become  the  "Resultant  Reference  List"  pointer  or 
RRL.(CL). 

When  a search  fails,  the  reference  pointer  is  checked  to  see  if 
a previous  call  to  IFSRCH  for  another  word  in  the  same  search  term 
produced  a list  pointer.  If  so,  that  pointer  is  deleted  from  the  list  pointer 
table  by  a call  to  DELIST  since  all  words  of  a query  must  match  the  In- 
verted File  ih  order  to  make  a successful  search.  The  last  scanned  seg- 
ment is  closed,  the  result  parameters  are  zeroed,  and  a zero  value  is  re 
turned  to  SEARCH. 

B.  Procedures  Calling  IFSRCH: 

SEARCH 

C.  Procedures  Called  By  IFSRCH: 

IFSET,  LOCSEC,  RDWAIT , COMPUL,  CLOSE,  OPEN, 


D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

IFS2(POT.  ) Nar“he  2 of  Inverted  File  x 

COMBFn(POT.)  Common  buffer  x 


E.  Arguments: 

IFSFP;  pointer  to  inverted  file  search  form 
WRDNO:  sequence  number  of  word  being  processed 

IFSl  : combination  code 

F.  Values: 

Ptr  = Pointer  to  reference  list  augmented  pointer  or  zero 
(if  no  match  made). 


Q ' . A detailed  description  of  the  three-part  list  pointer  may  be  found  in 
ERIC  Appendix  B.  230 
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G.  Error  Codes  (in  last  word  of  search  form): 

-3  Premature  end-otf-file  reading  segment 
-5  Section  fence  missing 
-6  List  fence  missing 

H.  Messages: 

"Error  opening  I.F.  Seg.  NAME1",  (Seg,  name)  (LOCMES, 
BCDASC) 

I.  Length: 

25  50  or  1373. n words  (including  ATSCRN,  BUFSCN, 

o 1 U 

MATAFF,  LOCSEC) 

J.  Source: 

IFSRCH  ALGOL  * 

K.  Files  Referenced: 

SInnn  date 
AInnn  date 


( 


( 
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3.Z.5.2  LOCSEC 
Purpose 

To  locate  a section  of  an  Inverted  File  segment 
Des  c ription 

A.  Operation:  LOCSEO(Namptr , Aut  ) 

IFSRCH  passes  two  arguments  to  LOCSEC  as  it  attempts  to 
narrow  down  the  Inverted  File  search  to  the  appropriate  segment.  One 
argument  is  a Boolean  variable  which,  if  set,  indicates  an  author  search 
is  in  progress.  In  this  case  the  file  names  are  set  up  to  use  the  Author 
Invented  File  ^and'directories  . Otherwise,  subj ect- title  file  names  are 
used, 

The  first  step  in  the  search  is  to  extract  (using  GET)  the  first 
'character  of  the  name  or  search  word  (the  other  argument  to  LOCSEC). 
The  ASCII  code  for  this  character  is  then  adjusted  and  used  to  select  a 
corresponding  address  in  the  first  directory,  IFTABS  (or  IFTABA).  The 
contents  of  this  directory  address  points  to  the  depth  of  the  second  direc- 
tory (IFDS  or  IF  DA)  where  the  abbreviations  (up  to  7 letters)  of  list 
words  which  start  with  this  character  may  be  found. 

Comparison  is  then  begun  at  this  position  of  directory  two  be- 
tween the  name  passed  to  LOCSEC  and  the  name  abbreviations  in  the  direc 
tory.  These  abbreviations  are  seven  characters  or  less  coded  in  5 -bit 
ASCII  form.  The  argument- name  then  must  also  be  converted  to  5— bit 
ASCII  by  the  procedure  NAM’S  in  a separate  ALGOL  file  of  the  same 
name.  Each  word  of  directory  two  represents  one  section  of  the  Inverted 
File.  The  name  of  the  first  list  in  that  section  was  condensed  to  5-bit 
code  , and  inserted  into  the  appropriate  directory  slot  by  IFGEN  during  the 
creation  of  the  Inverted  Files.  Thus,  directory  two  is  a real  index  — 
almost  a table  of  contents  — to  the  sections  of  the  Inverted  File.  Sections 
of  the  file  which  contain  only  references  from  a large  list  and  no  begin- 
ning of  a new  list  are  represented  by  the  negative  form  of  the  list  name 
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code  in  their  corresponding  directory  slots.  During  LOCSEC's  matching 
process,  if  a negative  name  is  seen,  it  is  skipped.  A full-computer-word 
comparison  is  made  between  the  converted  argument- name  and  the  trial 
directory- abbreviation.  If  the  argument  is  greater  (further  down  the  alpha- 
betical order)  than  the  trial,  the  next  trial  in  sequence  is  taken  from  the 
directory.  When  a trial  is  found  which  is  greater  than  the  argument,  the 
sought  word  is  assumed  to  be  in  the  previous  section  of  the  Inverted 

File.  The  directory  index  is  reduced  by  1 and  used  to  compute  the  proper 
segment  and  section  numbers.  For  example,  if  the  trial  in  slot  number 
205  was  found  to  be  the  first  one  which  was  greater  than  the  argument,  then 
the  sought  name  would  be  expected  to  be  found  in  segment  Z0  (2  00/f  1 0),  section  4 

If  the  argument  and  trial  happed  to  be  equal,  an  indicator  (EOU)  is 
set  and  no  reduction  by  1 is  made  to  the  index.  Thus,  the  assumption  is  made 
that  the  full  word  being  sought  will  be  found  at  or  beyond  the  point  indicated 
by  the  matching  abbreviation.  This  is  not  always  true.  Therefore,  IFSRCH 
will  back  up  and  try  the  previous  section  when  the  "find-point"  has  been' 
passed  and  the  (EQU)  indicator  is  on. 

Having  selected  a segment  of  the  Inverted  File  for  searching.LOCSEC 
constructs  the  first  name  of  that  segment  from  the  segment  number  it  selec- 
ted and  opens  the  file  for  reading  by  calling  the  CTSS  procedure  OPEN  before 
returning  to  IFSRCH.  If  an  error  occurs  because  the  file  is  already  open,  a 
normal  return  is  made.  Any  other  kind  of  OPEN  error  results  in  an  error 
message  (1)  and  an  Intrex  abort. 

B.  Procedures  Calling  LOCSEC: 

IFSRCH 

C.  Procedures  Called  By  LOCSEC: 

DEFBC,  GET,  NAM5,  OPEN 

D.  COMMON  References: 

None 

E.  Arguments: 

Namptr:  ptr  to  search  word 

, Aut  : Boolean  switch  (used  to  distinguish  between  authoi 

and  subject  searches). 


O 
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F.  Values:  / 

None 

G.  Error  Codes: 

None 

H.  Messages: 

1.  "Error  opening  I.F.  segment  x”  (LOCMES,  BCDASC) 

I , Length: 

See  length  of  1FSRCH 

J . Source: 

IFSRCH  ALGOL 

K.  Files  Referenced: 

) 

S Ixxx  date 
Alxxx  date 


* 


j'  i 


o 
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3, 2.  5.  3 NAM5 
Purpose 

To  convert  to  5 -bit  code 


Description 

A,  Operation:  Str  = NAM5(Ptr) 

NAM5  is  called  by  LOCSEC  with  an  argument  containing  a 
pointer  to  an  ASCII  string  (the  "name"  field  of  the  user’s  query  search 
form).  Up  to  the  first  seven  characters  of  this  string  are  converted  to 
a 5-bit  representation  of  the  ASCII  code.  This  is  a simple  matter  of 
masking  off  all  but  the  first  (low-order)  5 bits  in  most  cases.  The  only 
special  case  is  when  a non- alphabetic  character  (code  less  than  100  octal) 
is  found  within  a string  which  started  with  a letter.  ( e.  g.  H*  Sub  2*).  Since 
the  five-bit  code  for  * is  the  same  as  the  five-bit  code  for  J,  which  would 
cause  ambiguity  problems,  the  non- alphabetic  characters  in  these  cases 
are  5-bit  coded  as  zero.  If  however,  the  first  character  is  non-  alphabetic , 
then  standard  bit  masking  is  done  throughout  the  "word".  The  ambiguity 
with  letters  would  not  matter  in  this  case  since  the  scan  of  the  directory 
would  start  in  the  early,  non- alphabetic  area  as  controlled  by  the  directory 
to  the  directory. 

Character  strings  of  less  than  seven  codes  will  be  left- adjusted 
with  zero  bits  filling  in  the  unused  right  portion  of  the  word.  The  word 
holding  the  converted  string  is  returned  to  the  calling  program. 

B.  Procedures  Calling  NAM5: 

LOCSEC 


C.  Procedures  Called  By  NAM5: 
GET,  * INC  1 

E>.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  pointer  to  ASCII  string 


The  coding  scheme  described”  here  is  not  ambiguity-proof  and  a revised 
O Agorithm  is  being  prepared  for  testing. 
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F - Values: 

Str  = left-ajusted  5 -bit  character  string 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

171g  or  121^q  words 

J.  Source: 

NAM5  ALGOL 

K.  Files  Referenced: 

None 
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3.Z.5.4  MATAFF  | 

"V 

Purpose  ""  ' 

To  match  an  affix  string  (author’s  initials) 

Des  cr  iption 

A.  Operation:  Code  - MATAFF 

The  design  specifications  of  this  routine  and  the  whole  strategy 
of  matching  affixes  have  undergone  such  extensive  revision  over  the  life 
of  Intrex  that  many  awkward  and  redundant  operations  are  left  in  the  pre- 
sent version  of  MATAFF.  Currently,  only  author's  initials  are  searched 
as  affixes.  Although  it  is  undoubtedly  difficult  to  follow  the  scheme  by 
reading  the  source  code,  the  general  technique  is  as  follows. 

First  the  address  of  the  affix  header/code  pairs  of  computer 
words  is  located  within  the  Inverted  Pile  list  whose  name  matched  the 
searched  word.  The  number  of  such  affix  pairs  is  extracted  from  the  list 
header.  Then  an  array  is  obtained  from  free  storage  which  will  be  used  to 
hold  the  matching  affix  position  numbers  (from  1 to  as  many  sets  of  initials 
as  there  are  in  the  list).  An  index  to  this  array  is  set  up. 

Now  the  number  of  affix  pointers  (always  one  for  authors)  and  the 
pointer  to  the  pointers  is  extracted  from  the  Inverted  File  search  form 
which  was  passed  to  IFSRCH.  MATAFF  is  then  ready  to  start  comparing 
the  affixes  of  the  user's  query  to  the  affixes  of  the  Inverted  File  list. 

As  the  compare  logic  loops  through  the  affix  lists,  tests  are  made 
for  a possible  spill-over  into  the  next  Inverted  File  section,  which  would 
necessitate  reading  the  next  block  into  core.  As  each  I.  F.  affix  is  taken, 
the  initials  count  of  that  affix  is  taken  from  the  affix  header.  The  corre- 
sponding initials  count  of  the  quei;y  name  is  taken  from  the  decrement  of 
the  affix  pointer.  A comparison  (using  COMPUL)  is  made  between  these 
two  initial  strings  to  the  end  of  the  shorter  one.  If  a match  is  made,  the 
sequence  or  position  number  of  the  list  affix  is  inserted  into  the  next  avail- 
able  slot  of  the  array  set  up  for  that  purpose,  and  an  indicator  is  set  de- 
signating that  the  3e^rch  has  been  successful. 

Whether  a match  is  made  or  not,  the  next  affix  in  the  list  is  taken 
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and  comparison  in  repeated.  All  matching  affine  position  numbers  are 
saved  in  the  array.  When  all  affixes  in  the  list  have  been  compared  the 
search  is  over.  If  any  matches  have  been  made,  the  array  of  affix  posi- 
tion numbers  becomes  a list  of  attributes  and  the  attribute-search-mode 
indicator  is  turned  on.  This  forces  a inter  stage  of  the  search  to  use  the 
numbers  in  an  attribute  screen. 


B. 


C. 


D. 


E. 


Procedures  Calling  MATAFF: 

IFSRCH 

Procedures  Called  By  MATAFF: 

COMPUL,  FRET.  FREZ,  RDWAIT 

COMMON  References: 

None 

Arguments: 

None 


F . Values  : 

Code  = 1: 

= 0: 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

See  IFSRCH 

J.  Source: 

IFSRCH  ALGOL 

K.  Files  Referenced: 

AInnn  date 


match  is  successful 
match  fails 


O 
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3.2,6 Search  Command  Play-Back 


3. 2. 6.1  INIEVL 


Purpose 


To  initialize  EVAL 


Description 
A.  Operation: 


INIEVL 


This  initializing  procedure  is  called  by  INIT2  in  OVNEW 


ALGOL,  which,  in  turn,  is  called  by  INIPIX  in  INITLY  ALGOL  during 
the  "fixed  parameter"  initialization.  It  sets  up  pointers  to  character 
strings,  message  labels,  and  mask  bits  used  by  EVAI^.  After  execution, 
the  code  used  by  INIEVL  is  given  to  free  storage  by  a call  to  FRALG. 

B„  Procedures  Calling  INIEVL: 

INIT2 

C.  Procedures  Called  By  INIEVL 

FRALG,  . C.ASC 

D.  COMMON  Reference^: 


F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

62^  or  words 


~yT  one 


E 


None 
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J.  Source: 

EVAL  ALGOL 

K.  Files  Referenced: 

\ None 


v; 


tt 
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3.  2. 6. 2 


3.  2. 6. 2 EVAJL 
Purpose 

To  print  the  results  of  a search  command 
Desc  ription 

A.  Operation:  Code  = EVAL(  ) 

Since  the  function  of  EVAL  is  to  produce  a message  to  the 
user  reporting  on  the  results  of  his  search  command,  it  must  con- 
struct the  message  according  to  several  conditions.  First,  it  checks 
to  see  if  an  "output"  request  or  a "restrict"  request  was  given  on 
the  same  command  line  with  the  search  request  by  examining  the  Field 
Search  and  Output  Not  "Executed  bit  of  the  System  State  Table,  FXONX 
(SST.).  If  on,  the  message  is  set  up  to  tell  the  user  that  the  selected 
fields  will  be  output  "now-".  If  off,  the  message  is  set  up  to  say  that 
the  fields  will  be  produced  when  the  user  types  an  output  command. 

Next,  the  resultant  reference  Nst  pointer  is  examined 
as  to  the  existance  of  a list.  If  there  is  one,  the  document  count  is  ex- 
tracted from  the  command  list's  result  slot.  When  the  document  count 
is  only  1,  the  message  elements  pertaining  to  a single  "document"  are 
selected  for  use.  If  it  is  more  than  1,  the  components  referring  to  plural 
"documents"  are  used. 

Next,  the  pointer  to  output  commands  is  taken  from  the  command 
list,  the  address  of  the  table  of  field  names  is  obtained  via  FLDNAM  (in 

t 

TABLE2),  and  the  dialog  mode  (long  or  short)  is  determined#  Initi? lization 
of  routine  parameters  ir  completed  and  the  message  to  the  user  is  begun 
by  calling  TYPEIT  in  the  Continuation  mode1’  (CONT)  to  print  out  the  first, 
introductory  words  of  the  message.  In  l,longM  mode,  this  section  (OP1)  con- 
sists of  the  ph<^ase,  UA  search  on  your  request1*.  In  "short11  mode  it  is 
blank..  Now  the  request  itself  is  repeated,  as  Intrex  understood  it.  Pointers 
to  the  three  search  forms  are  extracted  from  the  command  list  and  put 
through  a construction  and  typing  loop,  one  by  one.  If  any  of  the  three  types 
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are  unused,  a count  is  incremented  which  is  used  to  select  the  proper 
message  label  corresponding  to  the  next  type  and  the  loop  is  repeated. 
Types  which  werejised,  and  therefore  provide  a pointer  to  a search 
structure,  cause  extraction  of  the  name  or  term  and  the  endings  or 
initials.  A string  of  ASCII  characters  is  constructed  in  core  which 
joins  each  ending  to  the  corresponding  stem  (separated  by  a hyphen)  or 
follows  an  author  name  by  initials.  A record  is  kept  of  all  the  individual 
words  looked  up  in  the  search. 

Another  TYPEIT  call  is  made  whose  first  argument  is  OP14, 
OP15,  or  OP16  producing  the  search  types  SUBJECT,  TITLE,  or 
AUTHOR  respectively.  The  selection  of  one  of  these  three  message 
labels  is  determined  by  the  count  incremented  each  time  through  the  loop. 
The  second  argument  in  the  TYPEIT  call  is  the  pointer  to  the  in  core 
search  term  just  constructed.  A third  argument  keeps  TYPEIT  in  the 
continuation  mode. 

If  a subject  command  is  played  back  to  the  user,  the  attribute 
slot  of  the  search  structure  is  examined  to  see  if  a RANGE  restriction 
were  given.  If  so,  the  word  RANGE  (OP14A)  is  displayed,  followed 
by  the  range  numbers  (or  names  if  long  mode)  the  user  specified. 

After  this  loop  processes  all  three  types  of  search  requests, 
another  TYPEIT  call,  still  continuing  the  same  line,  puts  out  the  phrase, 
"found  d document(s). 

If  the  number  of  documents  found  is  zero  and  the  user  is  in 
"long  mode",  the  search- word  count  is  examined.  If  more  than  one 
word  was  involved  in  the  search  (including  combinations  of  search  types), 
an  automatic  count  of  matching  documents  will  be  displayed  by  calling  the 
procedure  SEEMAT  (in  SEEMAT  ALGOL).  The  call  to  this  routine,  which 


The  number  of  documents  as  specified  by  the  count  in  the  command 
list. 

"s"  added  unless  d=  1. 
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does  exactly  what  a user-issued  COUNT  command  does,  is  actually 
made  from  the  supervisor,  SUPER,  upon  return  from  EVAL.  EVAL 
merely  puts  forth  a message  telling  the  user  that  the  COUNT  results 
are  aoout  to  be  displayed  (oplO).  If  only  one  search  word  were  used, 
a COUNT  display  would  be  meaningless,  so  a message  suggesting  the 
use  of  other  search  terms  or  commands  is  given  (OP18). 

When  some  documents  have  been  found,  "another  TYPEIT  call, 
using  message  OP4a,  starts  a new  sentence  with  the  phrase,  "The 
catalog  fields"  (long  mode)  or  the  abbreviation, "O: " (in  short  mode). 

At  this  point,  the  bits  of  the  output  request  Jist  pointer  are  examined  to 
see  if  any  of  5 possible  special  fields  (NORMAL,  ALL,  STANDARD, 
MATCH,  and  TEXT)  were  requested  by  the  user.  This  is  done  in  a 
loop  which  masks  off  one  of  the  appropriate  bits  at  a time  to  see  if  it 
exists.  If  so,  the  corresponding  field  name  (or  label  for  it)  is  selected 
from  an  array  set  by  INIEVL'and  fed  to  TYPEIT. 

Next,  regular  fields  are  processed  as  specified  by  the  output  re- 
quest list  which  contains  an  array  of  field  numbers  selected  by  the  user 
in  his  output  command.  In  long  mode,  the  numbers  are  used  to  select  the 
corresponding  position  in  the  field-name  table  (constructed  by  TABLE) 
whose  address  was  obtained  earlier  by  FLDNAM.  In  short  mode,  only 
the  field  numbers  themselves  are  printed. 

If  the  routine  passes  this  point  without  having  typed  any  field 
labels,  a bit  in  the  output  request  liit  pointer  is  examined  which  would 
have  been  set  by  OUT.  (the  output  request  interpreter,  residing  in 
INOUT  ALGOL)  if  field  1,  the  document  number,  were  requested.  If 
this  bit  is  on,  the  word  DOCUMENT  (in  long  mode)  or  the  number  1 J 

(in  short)  is  printed.  If  this  bit  is  not  on,  then  no  output  fields  were  re- 
quested and  EVAL  assumes  that  the  user  wants  the  NORMAL  output  ( i.  e. 
TITLE,  AUTHOR,  LOCATION).  A,  call  to  TYPEIT  with  the  message 
label  (OP46)  which  produces  this  bit  of  text  is  made.  This  call  is  also 
in  the  "continuation  mode"  and  now  another  call  to  TYPEIT  extends  the 

message  to  say  "for  those  documents " (or  " that  document ", 

as  the  case  may  be).  If  field  restrictions  were  requested  via  RESTRICT, 
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a set  of  restrict  specifications  will  have  been  set  up  in  IN.  , also  residing 
in  INOUT.  These  specifications,  which  are  pointed  to  by  the  field  search 

list  pointer  of  the  command  list,  FSL.  (CL.),  are  also  played  back  to  the 
user  as  part  of  EVAL's  response.  If  any  exist,  the  message  continues, 

" which  also  match  your  field  restrictions ”,  or  just  "R:”  in  short 

mo<fie.  Then  the  actual  restrictions  are  displayed  (as  IN . understood  them) 
In  short  mode,  the  message  to  the  user  is  now  complete.  In  long 
mode,  however,  it  goes  on  to  say  that  his  specified  output  ” will  be  out- 

put now,"  or  '""--will  be  output  when  you  type  o (for  output)",  depending 
upon  whether  or  not  an  output  (or  restrict)  command  was  issued  with  the 
search  command. 

Additional  TYPEIT  calls  are  made,  in  long  mode,  to  tell  the  user 
he  may  terminate  the  output  at  any  time  by  hitting  the  ATTN  key  once 

",  > etc,  and  to  suggest  what  he  might  do  next/ 

EVAL  returns  to  the  supervisor  with  a value  of  zero,  which  is  the 
conventional  signal  that  a module  has  completed!  its  job  successfully. 

An  example  of  a response  displayed  to  tihe  user  by  an  EVAL  call, 
which  exercises  most  of  the  outputs,  is  given  un^er  Part  H. 

B„  Procedures  Calling  EVAL:  .[ 

SUPER  (via  CALLIT) 

C.  Procedures  Called  By  EVAL: 

COPY,  DIST,  FLDNAM,  FRET,  FREZ,  INC,  PUT, 

RNGNAM,  TYPEIT 


D.  COMMON  References: 

Name  Meaning 


Interrogated" 


FSONX(SST.)  FSO  not  executed 

E.  Arguments: 

None 

F.  Values: 

Code  = 0 
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G.  Error  Codes: 

None 

H.  Messages:  (samples) 

LONG 

"A  search  on  your  request  SUBJECT  magnet -ic  resQn-ance/R ANGE 
MAJOR,  SECONDARY/TITLE  spectroscop-y/ AUTHOR  Smith,  rf  found 
6 documents.  The  catalog  fields  TITLE,  AUTHOR,  LOCATION  for 
those  documents  which  also  match  your  field  restrictions  RESTRICT 
AFFILIATION  Harvard  will  be  output  now.  You  may  terminate  this 
output  at  any  time  by  hitting  the  ATTN  key  ONCE." 


SHORT 

'S:  magnet- ic 

res  on-  ance/RA: 

1,  2/T:  spectroscop-y/ 

A: 

Smith,  rf 

found  6 docs  O: 

NORMAL/R:  22  Harvard" 

I. 

Length: 

1 300g 

or  704^  words 

J. 

Source: 

EVAL 

ALGOL 

K. 

Files  Referenced: 

i 

None 
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3.  2.6.  3 GETEND 
Purpose 

To  convert  ending  code  to  ASCII  string 
Das  cription 

A.  Operation:  PTR  = GETEND(CODE) 

As  EVAL  reconstructs  the  user's  search  term  for  playback 
after  the  search  is  done,  the  ending  codes  pointed  to  in  the  affix  list  of 
the  search  structure  are  converted  to  their  corresponding  ASCII  letter 
codes  * To  do  this  conversion,  EVAL  calls  GETEND  with  an  argument 
containing  the  ending  code. 

GETEND  breaks  the  ending  code  into  its  two  parts.  The  left- 
most four  bits  give  the  length  of  the  ending,  thus  specifying  which  length 
subset  must  be  located  within  the  ending  list.  The  other  eight  bits  of  the 
code  specify  which  ending  within  the  subset  is  to  be  extracted. 

The  location  of  the  ending  pointer  table  is  obtained  calling 
INIEND  (see  Section  3.1  2.  ??’.  The  length  subset  extracted  frcra  the 
ending  code  indicates  which  pointer  is  to  be  chosen  from  the  table.  The 
address  portion  of  this  pointer  is  then  used  to  locate  the  first  ending  of 
this  length  in  the  list  arid  the  ending  number  is  used  to  adjust  this, 
address  to  the  proper  ending  locatibn. 

Finally,  the  ending  is  copied  (via  COPY)  from  the  ending  list  into 
a declared  array  within  GETEND  and  a pointer  to  this  copy  is  constructed 
and  returned  to  the  calling  program. 

B.  Procedures  Calling  GETEND: 

EVAL 

C.  Procedures  Called  By  GETEND: 

INIEND,  COPY 

l 

D.  COMMON  References: 

None 

E.  Arguments: 

CODE:  12 -bit  ending  code 
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F.  Values: 

Ptr  = pointer  to  ASCII  ending 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

217g  or  143^q  words 

J.  Source: 

STEM2A  ALGOL 

/ 

K.  File  References: 

None 


l 


r-v 
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3.2„ 7 Output  Command  Interpretation 
3.2.7.  1 INIOUT 

Purpose 

To  initialize  the  procedures  OUT.  and  IN. 

Desc  ription 

A.  Operation:  INIOUT  ( ) 

INIOUT  initializes  IN.  and  OUT.  by  setting  a few  character 
strings  used  by  those  procedures. 

B.  Procedures  calling  INIOUT: 

MIT2 

C.  Procedures  called  by  INIOUT: 

FRAI.G,  . C.ASC 

x 

D.  COMMON  References: 

None 


E. 


F. 


H. 

I. 

J. 

K. 


Arguments : 

None 

Values: 

None 

Error  Codes: 

None 

Messages : 

None 

Length: 

20g  or  l6^words 
Source 

INOUT  ALGOL 

Files  Referenced: 
None 


3 
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V 


3. 2.7. 2 OUT, 

Purpos  e 

To  interpret  OUTPUT  command 
Desc  ription 

A.  Operation:  Code  = OUT.  (Ptr) 

CLP  calls  OUT.  to  interpret  a user's  request  for  output.  OUT. 
examines  the  command  line  for  field  specifications.  Fields  are  speci- 
fied either  by  their  number  or  by  their  name.  When  it  finds  one,  it 
either  sets  a bit  in  the  output  request  list  pointer  (ORL.  ) or  it  enters  the 
field  number  for  that  field  in  the  output  request  list,  depending  on- the 
field  requested.  An  output  request  always  wipes  out  the  previous  output 
request. 

If  the  user  asks  for  a non-existent  field,  OUT.  prints  an  error 
message  and  returns  to  CLP.  If  the  user  specifies  more  than  10  fields, 
OUT.  accepts  the  first  10  and  ignores  the  rest.  If  the  field  number  is 
90  and  the  user's  console  is  not  a CRT,  OUT.  prints  an  error  message. 

If  there  are  no  arguments,  all  of  the  bits  in  the  ORL  except  those  in  the 
address  portion  are  zeroed  out.  This  indicates  a request  for  output 
with  a default  specification  (fields  24,  21,  23,  47).  If  the  previous  com- 
mand was  "output  90"  or  "output  text",  and  this  current  request  is  not 
for  field  90,  OUT.  sets  TEXTX  (POT.)  to  0 and  transmits  a form  feed 
via  WRFLXA.  If  SNX(SST.)  is  not  true,  OUT.  sets  GCE  (SST . ) to  true 
and  returns  to  CLP. 

'V 

The  special  fields  are  handled  in  the  following  way: 


field  1: 
field  74: 
field  75: 
field  76: 
field  "all" 
field  90: 
no  field: 


set  bit  0 of  ORL. 
set  bit  1 of  ORL. 
set  bit  2 of  ORL. 
Set  bit  18  of  ORL. 
set  bit  19  of  ORL. 
set  bit  20  of  ORL. 
zero  out  bits  0-20. 


1 


O 
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CLP  (via  CALLIT) 
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C.  Procedures  called  by  OUT.: 


ASCINT 

COMPUL 

COPY 

FLDNAM 


FREE 

FREZ 

LEGFLD 

NEXITM 


TYPEIT 


D. 


E. 


COMMON  References: 


Name 


Meaning 


ORL.  (CL.  ) 
TEXTX  (POT.) 
BLIP  (POT.) 
SNX  (SST.) 
GCE  (SST. ) 
FSONX  (SST.) 


Output  request  list 
Text  pointer 
Blip  characters 
Search  not  executed 
Go  command  exists 
FSO  not  executed 


Interrogated?  Changed? 

x 

x 

x 

x 

x 

X 


Arguments: 


Ptr:  ASCII  pointer  to  user  command  line 


F.  Values: 

Code  = 0 


G. 


Error  Codes: 


Code  = -3: 
-5: 


illegal  field  name 

"text"  not  a valid  field  for  this  console 


H.  Messages: 

1.  "3£,  is  not  a legal  designation.  Check  for  typing  errors.  See 
Part  15  of  Guide  for  full  list  of  types  of  catalog  information." 
($  IN.  3$) 

2.  "See  Part  8 of  Guide  for  details  on  correct  use  of  OUTPUT 
command.  Please  rephrase  your  request."  ($OUT.3a$) 

3.  "The  OUTPUT  command  accepts  only  10  fields.  You  may 
output  the  remainder  on  a subsequent  request."  ($OUT.4$) 

4.  "To  see  TEXT  you  must  say  output  fiche  and  get  the  fiche 
location  of  the  text."  ($OUT.5$). 

I.  Length: 

260g  or  176jQWords 

i'* 

J.  Source: 

INOUT  ALGOL 


K.  Files  Referenced: 
None 


t 
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3,2.7. 3 IN. 

Purpose 

To  interpret  RESTRICT  command 
Desc  ription 

A.  Operation  Code  - .IN. 

IN.  processes  a user’s  request  for  a secondary  search.  IN.  expects 
two  arguments  in  the  command  line  pointed  to  by  Ptr:  the  first  is  the 

name  or  number  of  the  field  to  be  searched  and  the  second  is  the  character 
string  which  FSO  will  search  for  . IN.  stores  an  ASCII  pointer  to  the  string 
and  the  binary  equivalent  of  the  field  number  in  a word  in  the  field  search 
list.  The  ten-word  list  can  hold  ten  search  specifications.  After  FSO  has 
performed  the  searches,  the  strings  are"teturned  to  free  storage  and  the 
list  is  zeroed  out  . 


If  the  first  argument  of  the  user  request  cannot  be  identified  as  a 
field,  or  if  the  second  argument  is  missing,  IN.  prints  an  error  mes- 
sage and  returns  to  CLP.  If  the  user  has  made  more  than  10  search  re- 
quests since  the  last  output  request,  IN.  prints  an  error  message.  Other- 
wise, IN.  stores  an  ASCII  pointer  to  the  string  in  the  next  available  word 
in  the  Field  Search  List  and  puts  the  field  number  in  bits  3-9  of  that  same 
word. 


( 

B.  Procedures  calling  IN.  : 
CLP  (via  CALLIT) 

' C . Procedures  called  by  IN.  : 


. ASCINT 
COMPUL 
COPY 
FLDNAM 


FREE  TYPEIT 

FREZ 

LEGFLD 

NEXITM 


D. 


Ett 


COMMON  references: 


Name 


Meaning 


FSL.  (CL.) 
BLIP(POT .) 


Field  search  list 
Blip  characters 


A rguments 


Interrogated? 


Ptr:  ASCII  pointer  to  user  command  line 


Changed? 


x 


251 


F. 


Values: 


<*C. 


H. 


Code  = 0 


Error  Codes: 
Code  = - 1 
„ = - 2 
3 


-V 


fieid  search  list  is  full 
no  search  string 
illegal  field  name 


Message's: 

1.  "Only  10  RESTRICT  restrictations  allowed  on  a search." 
"Please  begin  a new  search.  " ($  IN.  1$) 


2.  "You  have  not  fully  specified  your  RESTRICT  command. 
See  Part  9.5  of  Guide  for  details  on  correct  use  of  RE- 
STRICT command." 


"Please  rephrase  ypur  request."  ($IN.  2$) 

3.  "X  is  not  a legal  designation.  Check  for  typing  errors. 

See  Part  15  of  Guide  for  f-.ll  list  of  catalog  information. 
($  IN.  3$) 


4.  "See  Part  9.5  of  Guide  for  details  on  correct  use  of  OUT 
PUT  command." 

"Please  rephrase  your  request."  ($IN.  3a  $) 


I.  Length: 

240g  or  160^q  words 

J.  Source: 

INOUT  ALGOL 

K.  Files  Referenced: 

None 


I 

O 
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3.  2.  8 ^atpul  Command  Controls 

3.2.8. 1 FSO 

Purpose 

To  output  Catalog  information 
Description 

When  a user  requests  output  by  means  of  the  OUTPUT  command,  the 
system  will  store  his  specifications  and  then  call  FSO. 

FSO  will  transmit  to  the  user  four  kinds  of  data: 

1.  Document  numbers,  obtained  from  the  reference  list. 

2.  Catalog  information  from  CR**  INTREX. 

3.  Fiche  locations  from  FICHE  DIRECT «. 

4.  Texts  of  articles  via  microfiche. 

I.  Document  Numbers 

If  the  user  specifies  nOutput  1",  FSO  will  print  the  document  num- 
bers that  it  finds  in  the  reference  list.  Since  the  catalog  is  not  referenced, 
this  form  of  retrieval  is  inexpensive. 

II.  Catalog  Information 

FSO  scans  the  catalog  index,  CATDIR  INTREX,  for  the  locations  of 
the  requested  documents  in  the  catalog.  FSO  reads  a document's  record 
into  core  and  prints  the  fields  that  have  been  requested. 

There  are  several  special  features  associated  with  this  basic  pro- 
cedure: 

a.  Secondary  searches:  If  the  user  has  given  the  RESTRICT  com- 

mand, FSO  will,  for  each  document,  compare  the  search  string 
with  the  specified  fields.  If  the  match  succeeds,  FSO  tells  the 
user  this  and  tries  the  search  on  a new  document.  ° FSO  outputs 
the  requested  information. 

b.  Field  74  (MATCH):  FSO  uses  the  term  numbers  which  it  finds  in 

the  reference  words  to  print  out  only  those  terms  in  field  7 3 
which  met  the  conditions  of  the  search  request. 

c.  Field  7 5 (STANDARD):  FSO  prints  the  Author,  Title,  Corporate 

Author  and  Location  fields  in  a format  similar  to  a bibliographic 
entry. 


O 
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d.  Field  76  (Normal):  This  is  the  default  option  if  the  user  gave 

no  field  specifications  in  his  output  request.  FSO  prints  the 
Author,  Title,  Corporate  Author  and  Location  fields  as  four 
separate  fields. 

e.  ALL:  If  "ALL"  is  specified,  all  of  the  fields  of  each  document 

will  be  printed. 

III.  Fiche  Locations 

If  the  user  has  specified  "5"  or  "fiche"  in  his  output  request,  FSO 
will  call  TRETRI,  which  will  reference  FICHE  DIRECT  to  give  the  user 
the  fiche  address  of  each  document  after  any  other  requested  catalog  in- 
formation has  been  given. 

IV.  Text  Access 

If  the  user  has  specified  "90"  or  "text",  FSO  will  call  TRETRI, 
which  will  evoke  the  automatic  text  retrieval  mechanpfn  after  any  re- 
quested catalog  information  has  been  given. 


A.  Operation 

1.  If  CATII (SST .)  is  true,  the  typewriter  is  turned  off  and  CATII 
OUTPUT  is  opened.  (This  is  the  mode  for  creating  output  on 
disc  files  for  offline  printout. 

2.  The  subroutines  WHOA  MI  and  GETP  are  used  to  determine  if  the 
user  is  working  from  an  INTREX  console.  If  he  is,  a switch  is 
set  so  that  special  symbols  in  the  catalog  data  will  be  decoded 
by  SPCTRN. 

3.  Data  is  extracted  from  the  output  request  list  pointer.  Flags 
are  set  for  the  fields  Document,  Fiche,  Standard,  Normal, 
all  and  Text. 


\ 


4.  GCE(SST.)  and  FSONX(SST.)  are  set  to  false. 

5.  If  there  is  no  document  list,  FSO  prints  an  error  message  and 

returns  to  SUPER.  / 

6.  If  there  are  secondary  search  specifications  an£  field  90  has 
been  requested,  FSO  prints  an  error  message  and  returns  to 
SUPER. 

7.  GETLIS  is  called  to  initialize  the  document  list. 

8.  FSO  obtains  a document  number  by  calling  the  sub-procedure 
FETCH: 

a.  If  secondary  searches  are  being  performed  and  the  imme- 
diately previous  search  was  successful,  FETCH  moves 
the  previously  current  document  number  to  a new  document 
list.  If  the  nev  list  contains  432  references,  it  is  written 

254 
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out  in  the  Dump  File. 

b.  If  the  list  of  references  which  are  in  core  is  exhausted,  and  if 
there  are  no  more  references  on  disk,  FETCH  returns  to  FSO 
with  a value  of  0.  If  there  are  more  references  on  disk,  432  of 
them  are  read  into  core. 

c.  The  document  number  of  the  current  reference  word  is  stored 
as  the  value  of  FETCH.  FETCH  increments  the  reference  list 
pointer  by  one  and  returns  to  FSO. 

9.  If  the  document  number  returned  by  FETCH  is  the  same  number  that 
it  previously  returned,  FETCH  is  called  again  (Step  8). 

10.  If  FETCH  returns  a zero,  FSO  transfers  to  its  exit  routine  Step  25. 

11.  If  TEXTX(POT^  greater  than  zero  and  the  document  number  returned 
by  FETCH  is  greater  than  TEXTXfPOT.)  FSO  branches  back  and  calls 
FETCH  again  (Step  8).  This  process  continues  until  a document  num- 
ber lower  than  TEXTXfPOT.)  is  returned  by  FETCH.  This  procedure  is 
followed  because  the  user  must  cycle  through  Moutput  text’1  requests 
(one  request  for  each  document)  as  contrasted  with  other  output  re- 
quests which  give  all  documents  at  once, 

12.  A carriage  return  is  typed. 

13.  If  there  is  no  secondary  search  and  only  field  (Document)  is  re- 
quested, the  header  for  the  current  document  is  printed  and  control 
is  transferred  back  to  Step  8. 

14.  The  current  field  list  pointer  is  set  to  point  to  the  complete  list  of 

fields,  the  standard  fields  or  the  list  the  user  has  entered. 

/ 

15.  GETINT  is  called.  GETINT  will  scan  the  directory  CAT  DIR  CATS2 
(POT.)  for  the  pointers  of  the  first  50  documents  an^  read  into 
memory  the  first  of  these  documents.  If  GETINT  returns  an  error 
code..  FSO  will  print  the  header  and  an  error  message  reset 
TYPEIT  by  a call  to  INDENT,  and  branch  back  to  Step  8. 

/ 

16.  If  a secondary  search  has  been  requested,  FSO  will  match  each 
specified  field'against  the  corresponding  search  string.  ..If  the  fi^ld 
is  missing  from  the  document,  that  part  of  the  searchrTs  arbitrarily 
ruled  to  be  successful.  If  any  part  of  the  secondary  search  fails*, 
HEADER  is  called.  HEADER  will  report  that  the  search  failed  and 
then  transfer  control  to  Step  8. 

' •> 

17.  If  the  CAT II  option  is  on,  the  typewriter  will  temporarily  be  turned 
back  on  to  type  a header. 


2do 
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18.  If  field  75  was  requested,  fields  24,  21,  23,  and  47  will  be  printed 
together  as  a combined  field  and  header-  - If  the  INTREX  console  is 
being  used,  SPCTRN  will  be  called  to  decode  any  asterisk  ex- 
pressions in  field  24. 

19-  The  standard  header  is  printed  if  field  7 5 was  not  requested. 

20.  If  the  current  list  of  fields  is  not  empty,  FSO  will  step  through  4'  m~ 

list,  printing  each  of  these  fields: 

a-  GETFLD  Is  called  to  obtain  a pointer  to  a requested  field; 
b.  SUBHEAD  is^ealled  to  print  the  subheading  for  the  field; 
c - Either  SPCTRN  or  TYPEIT  is  called  to  print  the  field;  . - 

d-  A new  field  number  is  obtained  from  the  current  list  of  fields, 

and  control  is  transferred  to  Step  a* 

2)  If  field  74  has  been  requested,  the  following  steps  are  performed: 
a-  GETFLD  is  called  to  retrieve  a pointer  to  field  73; 
b.  The  term  number  is  extracted  from  the  current  reference  word; 

c*  If  term  number  is  77,  which  means  that  the  list  was  generated 

by  the  document  command,  or  if|there  is  an  author  search!  form 
but  not  a title  oi  ;ject  form  also,  FSO  prints  a message  ex- 
plaining that  a request  for  field  74  is  nonsensical; 

d-  FSO  extracts  the  correct  term  fro rp  field  73,  using  the  last  two 
characters  of  a term,n);M  as  a delimiter; 

G-  The  term  is  printed,  using  either  TYPEIT  or  SPCTRN; 

f0  FETCH  is  called-  If  it  returns  a new  document  number,  con- 
trol is  transferred  out  of  the  field  74  routine,  otherwise,  con- 
trol is  transferred  to  Step  b- 

22,  If  field  five  ha#  been  requested,  TRETRI  is  called  with  a second  argu- 
ment Of  G,  f 

23.  If  field  90  has  been  requested,  TRETRI  is  called  with  a second  argument 
of  1.  The  value  that  TRETRI  returns  is  stored  in  TEXTX(POT.). 


24* 

25- 


B- 


C- 


Control  is  transferred  to  Step  8- 

A concluding  message  is  printed-  The  free  storage  used  by  GETXNT 
is  returned  and  INDENT  is  called  with  an  argument  of  zero.  If  a new 
list  has  been  generated  by  means  of  a secondary  search,  NEWPT 
will  establish  it  as  the  current  list-  Finally,  control  is  returned  to 


SUPER.  / 

Procedure  calling  FSO: 
SUPER  j 

Procedures  cajded  by  FSO: 

CLOSE 

GETFLD 

INIDSK 

TYPEIT 

DIST 

GET  IN  T 

MATCH 

WHOAMI 

GET'LIS 

RDWAIT 

WRWAIT 

FIELDS 

GETP 

SPCTRN 

FLDNAM 

INC 

STANDL 

FRA  LG 

INC  1 

TABENT 

FSOCLN 

INDENT 

TRETRI 

2o6  3 
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D.  COMMON  References 

Name  Meaning  Interrogated?  Changed? 


BLIP  (POT.) 

blip  characters 

X 

T EX  TX(  PO  T .-) 

text  pointer 

X 

VERBOS  (POT.) 

TYPEIT  mode 

X 

COMBF  l(POTo) 

common  buffer 

X 

TOTBLK(POT.) 

Dump  File  pointer 

X 

COMBF 4 (POT .) 

common  buffer 

X 

DFN1  (POT.) 

Dump  File  name  1 

X 

C AT  IT(SST .) 

off  line  output 

X 

GCE  (SST .) 

go  command  exists 

FSONX(SST .) 

FSO  not  executed 

SSF.  (CL.) 

subject  search  form 

X 

TSF.  (CL.)  . 

title  search  form 

X 

ASF.  (CL.) 

author  seap^h  form 

X 

ORL.  (CL.) 

output  request  list 

X 

FSL.  (CL.) 

field  search  list 

X 

RRL.fCL.)  . 

resultant  reference  list 

X 

E. 

Arguments : 

/ 

i 

None 

F. 

Values : 

Code,  = 0 

G. 

Error  Codes: 

\ 

Code  = -1  no 

reference  list 

H. 

Me  s s ag  e s : 

1.  "Search  and  Output  completed.  You  may  now  see  other  catalog 

information  from  this/these  document/documents  by  making  an 
output  request  (for  information  on  how  to  do  this,  see  Part  8 
of  the  Guide  or  type  info.  8. 

You  may  also  select  a subset  of  these  documents  by  making  a 
RESTRICT  request  (see  Part  9.5).  Otherwise,  you  may  make 
a new  search  (see  Part  2)  or  make  other  requests  (see  Part  1)'-. 

(/fsol/,  /fso2a  /,  /fso2b/,  /fso2c/,  /fso2dl/,  fso2d2/, 
/fso2e/,  /fso5/);  [short  form  is  null] 

2.  "No  documents  found.  You  may  make  a new  search  (see  Part  2 

of  Guide,  or  type  info  2)  or  make  other  requests  (see  Part  1)." 
[No  documents  found]  (/fso4/) 

3.  "Your  last  active  list  has  been  retained."  ($fso6$) 

4.  "The  catalog  record  for  this  document  can  not  be  retrieved  at 

this  time.  Error  code  = _6  ($getl$) 
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5.  "INTREX  is  unable  to  print  this  field’ 

6.  "field  empty”  (/empmes/) 

7.  "MATCH  invalid  for  this  request" 

8.  "NO  MATCH"  (/doc5/) 

I.  Length: 

2350^  or  1256^q  words 

J.  Source: 

FSO  ALGOL 

K.  Files  Referenced: 

DUMnnn  FILE 
NAMnnn  FILE 
SInnn  - date  - 
AInnn  - date  - 


O 
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’ ($get2$) 

(/ doc 6/) 
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3. 2. 8. 2 NEWPT 
jPurpos  e 

To  finish  new  reference  list 
Desc  ription 

NEWPT  is  called  by  FSOCLN  to  finish  up  the  action  of  FSO  either 
after  an  interrupt  or  after  FSO  has  processed  all  of  the  current  documents 

A0  Operation 

1.  NEWPT  calls  FCLEAN,  which  will  clean  up  secondary  search 
specifications,  if  there  are  any, 

2.  If  there  has  been  a secondary  search  and  entries  have  been  gen- 
erated for  a new  reference  list,  NEWPT  writes  out  these  en- 
tries on  the  Dump  File.  A three-word  reference  list  pointer  is 
created  for  them,  making  them  the  current  list. 

3.  If  the  original  reference  list  which  FSO  used  was  on  disk:  its 
file  is  closed. 

4.  If  Intrex  is  in  the  CATII  mode,  the  file  CATII  OUTPUT  is  closed 
and  the  typewriter  is  turned  on. 

B.  Procedures  calling  NEWPT:  * 

FSOCLN 

C.  Procedures  called  by  NEWPT: 

CLOSE,  FCLEAN,  INIDSK,  TABENT,  WRWAIT 

D.  COMMON  References: 

Interrogated?  Changed  ? 

DFLNI  (POT.)  Dump  File  name  1 x x 

TOTBLK(POT.)  Dump  File  pointer  * x 

E.  Arguments: 

None 

F . V alues : 

None 

G.  Error  Codes: 

None 

Ho  Messages: 

None 

I.  Length: 

200g  or  12810  words 

ERIC 
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J.  Source: 

FSO  ALGOL 

K.  Files  Referenced: 

DUMnnn  FILE 


* 


( 
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3.  2,8.  3 INIFLD 
Purpos  e 

To  initialize  FSO 
Description 
A0  Operation: 

INIFLD  is  called  by  SEGINT  to  preset  variables  used  by  FSO. 

B.  Procedures  calling  INIFLD: 

SEGjNT 

C0  Procedures  called  by  INIFLD: 

. C. ASC 

De  COMMON  References: 

None 

E„  Arguments: 

None 

F*  Values: 

None 

G.  Error  bodes: 

H.  Messages: 

None 

I.  Length: 

L20g  or  80jq  words 

J.  Source: 

FSO  ALGOL 

K„  Files  Referenced: 


0 & 


X 


■i 


None 
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getint 


Code  = GETINT  (Lptr,  Lien) 


Purpose 

To  initialize  GETFLD 
Description 
A.  Operation 

FSO  calls  GETINT  StREX  tte'pSniSrs  for'up  to  50  catalog 

b^ci-aerKa^rU^r^actea.  GETINT  is  calloa 
with  zero  argumenu  to  clean  up. 

4-  A T i f*n  Lptr  Vjoints  to  the  current 
GETINT  has  two  arguments  4'“  th  ][ength  of  the  remainder  of 
document  on  the  reference  &ts  this  as  a request  to  clean 

the  list.  If  Lptr  xs  zero  GETINT  u***P  getFLD>  u GETINT«s  list 
up  and  returns  the  Gee  storage  last  d by r this  list  of  document 

ZSSP&SZZ  SS^-TS1  a Salog  Pointer  extracted  fr*» 

CAT  DIR  INT  REX.  the  catalog  re- 

GETINT  will  use  thc  cottent  h 

returned.  If  the  catalog  record  is  I g record  a -5  is  returned. 

If  a fence  cannot  be  found  in  wor  *Llog  reCord,  it  returns  to  FSO  with 

If  GETINT  successiully  reads  in  a g 

a value  of  zero, 

E.  Procedures  calling  GETINT:  s 

FSO,  FSOCLN  \ 

C.  Procedures  called  by  GETINT: 

FRET,  OPEN,  RDWAIT 


CLOSE, 

D.  COMMON  References: 

Name  Meaning 

CATS2(FOT.)  Name2  of  Catalog 

E.  Arguments: 

Lptr:  pointer  to  resultant  reference  list 


Interrogated  f 

x 


Changed' 


Lien: 


UUxUtc  x ^ ~ — 

Length  of  remainder  of  list 


fp.  Values: 

Code  = 0 


O 
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G.  Error  Codes: 

-1:  CATDIR  INTREX  does  not  ^ jn tain  a pointer  for  th*.1  re- 

cord. 

-4:  A catalog  segment  has  been  read  beyond  its  end  of  file. 

-5:  The  beginning  of  the  header  of  a catalog  record  cannot 

be  found. 

~6:  There  is  not  enough  room  in  core  storage  for  the  record. 

H.  Messages: 

I^Tone 


I. 

J. 

K. 


Length: 

411 


0 or  265,  ^ worlds 
8 10 


Source: 

GETFLD  ALGOL 


Files  Refe xences: 

CATDIR  INTREX 
CRnnn  INTREX 


1 v 
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3 „ 2 . 6 . 5 FSOCLN 
Purpose 


To  reset  FSO  parameters. 

Description 

FSOCLN  calls  routines  which  finish  up  the  work  of  FSO.  It  is  called 
at  the  end  of  FSO  or  it  is  celled  by  LISTEN  after  the  user  transmits  an 
interrupt, 

A0  Operation 

NEWPT  is  called  to  clean  up  after  a secondary  search.  GETINT  is 
called  to  return  free  storage.  INDENT  is  called  to  reset  the  margin  to 
zero . 

B„  Procedures  calling  FSOCLN 
FSO,  LISTEN 

C.  Procedures  called  by  FSOCLN; 

GETINT,  INDENT,  NEWPT 

D.  COMMON  references: 

None 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 


^>tcne 

I.  Length: 

14g  or  words 

J „ Source: 

FSOCLN  ALGOL 

K.  Files  Referenced: 


H. 


ERIC 


None 
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Purpose 

To  get  a field  from  catalog 


O 

ERIC 


Description 

A,  Operation:  3?tr  — GETF  LD  (Fldno,  Expand) 

GETFLD  has  been  prepared  by  a call  to  GETINT,  which  reads  the 
catalog  record  into  core.  GETFLD  has  two  arguments,  FLdno  and  Ex- 
pand.Fldno  is  the  desired  field  and  Expand  is  a Boolean  switch  which 
indicates  whether  or  not  an  encoded  field  should  be  decoded. 


GETFLD  searches  for  the  field  Fldno  in  its  list  of  fixed  fields.  If  it 
finds  it  there,  GETFLD  transfers  to  a specialized  routine  which  extracts 
the  field  from  the  first  four  words  of  the  catalog  record.  It  Expand  is 
false,  as  it  will  be  if  FSO  war  s the  field  for  a secondary  searcn, 
GETFLD  converts  the  binary  value  that  it  has  extracted  into  an  ASCII 
representation  of  the  cataloger's  code  that  the  value  represents.  If  FSO 
has  requested  the  field  for  purposes  of  output,  GETFLD  will  use  the 
binary  value  to  onstruct  a TYPEIT  message  label. 

If  GETFLD  cannot  find  the  field  on  its  fixed  field  list,  it  will  scan 
the  header  of  the  record  for  the  Fldno.  If  it  finds  Fldno  in  the  decre- 
ment of  word  in  the  header,  then  the  address  portion  will  contain  the  byte 
count  of  the  last  uyte  of  that  field.  The  beginning  of  the  field  can  be  de- 
rived ns  ing  the  byte  count  of  the  previous  field.  GETFLD  uses  this  data 
to  find  the  beginning  of  the  field  and  its  length.  An  area  one  word  more 
than  half  of  the  length  of  the  field  in  bytes  is  allocated  for  conversion 
from  digram  to  ASCII..  If  there  is  not  ~nough  room,  GETFLD  returns 
with-an  error  code  of  -6.  The  table  in  GETTAB  is  used  to  convert  the 
field  . A pointer  is  returned  to  the  converted  field. 

B.  Procedure  calling  GETFLD: 

FSO 


C.  Procedures  called  by  GETFLD: 


! "COPY 
DEFBC 
FREE 
FRER 
FRET 


FREZ 

GETINC 

GETSET 

GETTAB 

INC 


INC 
INC  1 
INTASC 
PUT 
PUT  INC 


TY  PE1T 


2G5" 
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D.  COMMON  References: 

None 

E.  Arguments: 

Fldno:  number  of  field’ requested 

Expand:  if  TRUE,  then  decode  fixed  fields 

Values: 

Ptr  = ASCII  pointer  to  field 

G.  Error  Codes: 

Ptr  = -6:  not  enough  room  for  dig  ram -to -ASCII  conversion 

Ptr  = -3:  field  missing 

H.  Me  ages: 

None 

I.  Length: 

1240g  or  67 2 L Q words 

J.  Source: 

GETFLD  ALGOL 

K.  Files  Referenced: 

None 


\ 

\ 
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3.  2. 8. 7 


3.2. 8. 7 GETTAB 
Purpos e 

To  get  digram- ASCII  conversion  table 

Desc  ription 

A.  Operation:  Ptr=  GETTAB  ( ) 

GETTAB  returns  as  its  value  the  location  of  a 256  word  table  which 
is  used  by  GETFLD  to  convert  a catalog  field  from  digram  to  ASCII. 


B.  Procedures  calling  GETTAB: 

GETFLD  j 

C.  Procedures  called  by  GETTAB: 

' f 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

^ None 

F.  Values: 

Ptr=  Location  of  table* 

G.  Error  Codes: 

r*  None 

H.  Messages: 

None  n 

I.  Length: 

404g  or  words 

J.  Source* 

GETTAB  ALGOL 

K.  Files  Referenced: 

None 


o 

ERIC 


.1  ; 
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3. 2. 8.  8 TRETRI 


Purpos  e 

To  retrieve  fiche  no.  or  text 


Peso  ription 

A.  Operation  Docno  = TRETRI  (Docno,  Flag)6'* 

TRETRI  opens  the  FICHE  DIRECT,  reads  the  entry  for  Docno  and 
closes  the  file.  If  Flag  is  one,  TRETRI  sends  to  the  terminal,  via 
WRFLXA,  a special  character  string  containing  the  address  of  the  text 
to  be  retrieved  and  special  control  characters.  These  control  characters 
are  interpreted  by  special  logical  circuitry  attached  to  the  terminal  which 
sends  the  appropriate  request  to  the  text-access  system.  TRETRI  re- 
turns to  FSO  v/ith  Docno  as  its  value.'  If  there  is  no  fiche  for  Docno,  a 
value  of  -Docno  is  returned. 

If  Flag  is  0,  TRETRI  prints  via  TYPEIT  the  location  of  the  fiche. 

If  the  text  of  the  document  is  not  in  the  fiche  collection,  a special  TYPEIT 
message  explains  where  if  may  be  found. 

I 

B.  Procedures  calling  TRETRI: 

FSO 


C.  Procedures  called  by  TRETRI: 

DERBC  RDWAIT  SETFUL 

©PEN  SETBCD  WRFLXA 


D.  COMMON  References: 

. 

Name  Meaning  Interrogated 

VERBOS(POT.)  TYPEIT  moVle  x 

COMBF1  (POT.)  Common  buffer  x 

E.  * Arguments: 

Docno:  document  number 

Flag:  0:  fiche  locating  requested 

1:  text  requested 

F.  Values: 

Docno  = document  number  (fiche  available) 
Docno  = - document  number  (fiche  not  available) 

G.  Error  Codes: 


None 


O 

ERIC 
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3.2.8.  8 


H.  Messages: 

1.  "This  document  is  not  yet  available  from  the  text- access  sub- 

system. You  may  see  a hard  copy  by  asking  a member  of 
the  Intrex  staff  for  it."  (/textl/) 

2.  "Text  is  available  only  for  the  individual  parts  of  this  docu- 

ment (that  is,  for  articles  or  chapters)  which  were  separately 
documented"  (/text2/). 

3„  "Reqv^est  a hard  copy  of  text  from  a member  of  the  Intrex  staff. 


Hard  copy  is  found  at  library  with  code  name  x..  See  Part  15.  11 
of  the  Guide  for  explanation  of  code."  (/text3/,  /teXt5a/, 

, /text  5b/) 


I.  Length: 

535g  or  349-^q  words 


'X 


J.  Source: 

TRETRI  ALGOL 


K.  Files  Referenced: 


FICHE  DIRECT 


ERIC 
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3. 2. 8. 9 SPCTRN 
Purpose 

To  translate  special  characters 

V s ' 

Description 

SPCTRN  is  used  to  translate  the  ASCII  representation  of  special 
graphical  symbols,  such  as  Greek  letters,  into  special  code  sequences 
which,  when  transmitted  to  an  INTREX  console,  will  appear  as  graphical 
symbols. 

A.  Operation 

If  the  user  is  at  an  INTREX  console,  FSO  will  call  SPCTRN(Ptr) 
printout  fields  * instead  of  TYPEIT.  SPCTRN  will  scan  the  field  pointed 
to  by  Ptr,  looking  for  special  graphical  representations,  which  are  always 
bracketed  by  Asterisks.  When  it  finds  a special  string,  it  calls  TABLK, 
which  translates  it  into  the  special  codes  that  are  used  by  the  INTREX  con 
sole.  Ordinary  ASCII  substrings  within  the  field  are  transmitted  by 
SPCTRN  by  means  of  TYPEIT.  A detailed  description  of  SPCTRN,  and 
possible  refinements  of  it,  is  given  in  Reference  12. 


B.  Procedures  calling  SPCTRN: 

FSO 

C.  Procedures  called  by  SPCTRN: 

COMPAR  FIND  TABEK 

COMPUL  INC  TYPEIT 

DIST  INCHAR 

D„  COMMON  References: 

None 

E.  Arguments: 

Ptl*:  ASCH  pointer  to  catalog  field 

F.  Values: 

\ - 

None 

G.  Error  Codes: 


None 
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H.  Messages: 

1.  "DISPLAY  PROGRAM  HAS  ENCOUNTERED  AN  ERROR." 

"THIS  PART  WILL  BE  DISPLAYED  AGAIN  WITHOUT  TRANS 
LATION."  (preset) 


I.  Length: 

321g  = 209jq  words 

J.  Source:  ^ 

SPCTRN  ALGOL 


I 

' V, 


K.  Files  Referenced: 
None 


0 
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3.2,8.  10  TABLK 
Purpose 

To  look  up  specially  coded  characters 
Desc  ription 

A.  Operation:  Chars  = TABLK  (Ptr,  Flag) 

TABLK  translates  th^  representation  of  a special  character  into  the 
binary  codes  that  will  activate  the  Intrex  console  to  display  that  char- 
acter. This  process  involves  the  use  of  four  tables.  DTABL  contains 
an  entry  fot  each  special  graphic.  Each  word  contains  a pointer  to  the 
representation  of  the  graphic,  stored  in  STBL,  and  a pointer  to  the 
binary  equivalent,  stored  in  OTBL.  The  entries  ii-  DTABL,  ..  con 
sequently  the  entries  in  STBL  and  OTBL,  are  ordered  according  to  the 
length  of  the  representation.  The  table  DRCT  indexes  the  table  DTABL. 
Each  word  in  DRCT  points  to  the  pointers  in  DTABL  which  apply  to  a re- 
presentation of  a given  length. 

Using  the  length  specification  in  the  decrement  of  Ptr  as  in  in- 
dex, TABLK  extracts  a pointer  from  DRCT.  TABLK  steps  through  the 
pointers  in  DTABL,  looking  for  the  string  pointed  to  by  Ptr  in  the  table 
STBL.  If  it  finds  the  string,  it  looks  up  the  binary  equivalent  in  OTBL. 
This  value  is  transmitted  to  the  console  by  a call  to  WRHGH. 

B„  Procedures  calling  TABLK:  

SPCTRN 

C*  Procedures  called  by  TABLK: 

COMPAR  FREZ  INCHaIr  WRHGH 

COMPUL  GET  OTBL 

FRET  INC  STBL 

D.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  ASCII  pointer  to  special  graphic  representation 

Flag  = 1:  string  translated 

0:  string  not  translated 
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3.2.8.  10 


F.  Values: 

Chars  = number  of  display  positions  used  by  special  character 

fir  * 

G.  Error  Coaes: 

None 

He  Messages: 

None 

L Length:  ( 

722g  or  466jq  words 

J.  Source: 

TABLK  ALGOL 

K.  Files  Referenced: 

None 


3.2.  8.  II 


-258- 


3.2.8.11  STBL 
Purpose 

To  define  special  symbols 
Description 

A.  Operation:  Addr  = STBL  ( ) 

STBL  returns  the  address  of  a packed  table  of  all  of  the  ASCII 
equivalents  of  the  special  graphical  characters.  TABLK  searches  this 
table  for  the  substring  which  SPCTRN  has  extracted  from  a field.  i 

B.  Procedures  calling  STBL: 

TABLK 

C.  Procedures  called  by  STBL: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

Addr  = location  of  table 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length:  t 

267g  or  183^q  words 

J.  Source: 

OTBL  ALGOL 

K.  Files  Referenced: 


None 
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3.2,8.12  OTBL 
Purpose 

To  define  binary  codes 
Description 

A.  Operation:  Addr=  OTBL(  ) 

OTBL  returns  as  its  value  the  location  of  a table  conta;ning  all  of 
the  special  character  sequences  which  must  be  transmitted  to  an  INTREX 
console  by  TABLK  in  order  to  display  special  graphics. 


B. 

Procedures  calling  OTBL: 
TABLK 

C. 

Procedures  called  by  OTBL: 
None 

D. 

COMMON  references: 
None 

E. 

Arguments: 

None 

F. 

Values : 

Addr=  location  of  table 

G . 

Error  Codes: 
None 

H. 

Messages: 

None 

I. 

Length: 

137g  words  or  95^  words 

J.  Source: 

OTBL  ALGOL 

K.  Files  Referenced: 

None 
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3.2.8.13  WRHGH 


Pu rpose 


To  transmit  special  codes. 


Description 


A.  Operation:  WRHGH  (String,  Length) 

WRHGH  is  a Fap-coded  procedure  which  is  used  as  a means  of 
calling  the  CTSS  A-core  procedure  by  the  same  name.  The  CTSS  pro 
cedure  will  transmit  to  the  user's  console  the  12-bit  binary  string  de- 
fined by  the  arguments  String  and  Length. 

B.  Procedures  calling  WP.HGH: 

TABLIC 

C.  Procedures  called  by  WRHGH: 

WRHGH 

D.  COMMON  References: 

Name 


E.  Arguments: 

String:  location  of  character  string 

Length:  length  of  string  in  words 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

17g  or  15._  words 

J.  Source: 

WRHGH  FAP 

K.  Files  Referenced: 

None 


3 

ERIC 
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3.2.8.  14  1NIRNG 


Purpose 

To  initialize  RANGE.  ATLCLN 

Description 

A.  Operation:  INtRNG{  ) 

INIRNG  is  called  by  SYSGEN  via  SEG1NT  at  system  generation 
time.  Five  variables  are  set;  two  of  them  areyASCII  pointers,  which 
are  created  by  calls  to  .C.ASC.  The  procedure  returns  itself  to  free 
storage  via  FRAEG. 

► 

B.  Procedures  calling  INIRNG: 

SYSGEN  (viaSEGINT) 

C.  Procedures  called  by  INIRNG: 

FRA  LG  \ C.ASC 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

23g  or  1910  words 

J.  Source 

RANGE  ALGOL 

K.  Files  Referenced: 

None 


0 
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3.2.8,  15  RANGE 
Purpos  e 

To  interpret  RANGE  command 
Description 

RANGE  is  called  by  CLP  to  set  up  an  attribute  list  in  the  INT REX  data 
structure,  based  on  the  user’s  RANGE  specifications. 

A.  Operation  Code  = RANGE(Ptr)  \ 

RANGE  processes  a user  command  by  calling  the  internal  procedures 
INIR,  SBSRCH,  NO.ATL,  GETLIS,  NUMOK,  NXTARG  and  FRMRAL. 

1.  RANGE  calls  INIR,  which 

a)  obtains  the  location  of  the  array  of  pointers  to  the  ASCII 
names  of  the  different  ranges. 

b)  obtains  the  location  of  the  subject  search  form  (SSF.  (CL0)). 

2.  RANGE  calls  SBSRCH,  which  prints  an  error  message  if  a sub- 
ject search  has  not  been  requested  or  if  the  search  has  already 
been  performed* 

3.  RANGE  calls  NO,  ATL,  which  prints  an  error  message  if  there 
are  already  range  attributes  associated  with  the  search  request. 

4.  RANGE  calls  GETLIS,  which  extracts  the  arguments  in  the  com- 
mand line  which  follow  the  RANGE  command,  and  builds  a list 

of  range  specifications. 

a)  GETLIS  calls  NXTARG,  which  uses  NEXTITM  to  return  an 
to  the  variable  ARGPTR.  If  there  are  no  more 
:s,  NXTARG  assumes  the  Boolean  value  of  FALSE. 

' b';  *i’ARG  is  true,  GETLIS  , 1 Is.— NU MO K to  check  the  ar- 

gument and  convert  it  to  its  binai^y  equivalent. 

’ 'V  (1)  NUMOK  uses  ASCINT.to  convert  the  argument  to  ASCII. 

If  this  yields  a value  outside  the  range  of  values  for 
RANGE,  the  argument  is  compared  with  the  ASCII  names 
of  possible  values. 

(2)  If  the  argument  is  illegal,  NUMOK  prints  an  error  mes- 
sage and  returns  a value  of  FALSE. 

c)  If  NXTRAG  and  NUMOK  are  TRUE,  GETLIS  adds  the  binary 
equivalent  of  the  RANGE  (0-4)  to  the  next  sequential  location 
in  an  array, 

d)  GETLIS  loops  back  to  Step  a for  another  argument.  If  there 
are  no  more,  the  unused  portion  of  the  array  is  returned  to 
free  storage  and  GETLIS  returns  to  RANGE  with  a pointer  to 
the  array  as  its  value. 


278 
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5.  RANGE  calls  FRMRAL,,  which  copies  the  array  of  ranges 
into  a new  array  and  returns  the  old  one  to- free  storage.  The 
new  array  has  a 7 in  the  first  word  instead  of  a range  value. 

6.  A pointer  to  the  array  is  stored  in  the  ATL.  slot  of  the  subject 
search  form. 


\ 


O 


B. 

C. 


D. 


E. 


F. 


G. 

H. 


i 


I. 


J. 

K. 


7.  RANGE  returns  to  CLP  with  a value  of  zero.  If  there  have  been 
i any  errors,  RANGE  returns  a -1,  which  terminates  the  pro- 
cessing of  the  user's  command  line  by  CLP  and  prevents  the  exe- 
j cution  of  a search  request. 

Procedures  callirfg  RANGE: 

CLP  (via  CALLIT) 

\ 


Procedures  called  by  RANGE: 

ASCINT,  COMPUL,  FRALG,  FRET,  FREZ,  NEXITM, 
RNGNAM,  TYPEIT 

/ ✓ 

COMMON  References:  / 

Name  Meaning  Interrogated?  Changed? 

SSF.(CL)  subject  search  form  ^ 


Arguments : 

Ptr:  ASCII  pointer 

V alues : 

Code  = 0 

Error  Code: 

None 


Messages: 

1.  "X  is  not  a legal  RANGE.  Cheek  for  typing  errors.  See  Part  9.  2 

of  the  Guide  for  details  of  correct  usage  of  the  RANGE  command,  M 
($raccl$) 

2.  MThe  RANGE  command  may  only  be  used  along  with  a SUBJECT 

search  as  explained  in  Part  9.  2 of  the  Guide,11  ($raerr2$) 

3.  flYou  may  use  the  RANGE  command  only  once  on  each  SUBJECT 

search  as  explained  in  Part  9.2  of  the  Guide.11,  ($raerr3$) 

Length: 

600q  or  384,  words 
o i U 

i 

Source: 

[RANGE  ALGOL 


Files  Referenced: 
None 
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3.2.8.16  ATLCLN 
Purpose 

To  clean  up  attributes 
Description 

A.  Operation:  ATLCLN(Ptr) 

ATLCLN  is  called  by  CLEANP  to  return  the  attribute  list  to 

free  storage. 

ATLCLN  calls  FRET  with  the  arguments  Len  and  Loc,  where 
Len  is  one  more  than  the  decrement  of  Ptr,  and  Loc  is  the  address  portion 


of  Ptr.  I^tr  is  then  set  to 
B. 


C. 


zero. 

Procedures  calling  ATLCLN: 
CLEANP  (via  CALLIT) 

Procedures  called  by  ATLCLN: 
FRET  ' 


D. 

COMMON  References:  { 

None 

E. 

Arguments: 

Ptr:  word  pointer  to  attribute  list 

- 

F. 

Values: 

None 

G. 

Error  Codes: 

None 

H. 

Messages: 

None 

— 

.... 

I. 

Length:  / 

or  20  j q words 

/ 

J. 

Source: 

RANGE  ALGOL 

K. 

Piles  Referenced:  \ 

None 
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3.2,9  Miscellaneous  Command  Controls 

3 « 2 « 9 » 1 IN.IVRB 

Purpos  e 

To  initialize  miscellaneous  procedures 
Description 

A , Operation:  INIVRB(  ) 

IN IV RB  initializes  variables  for  LONG,  SHORT,  FOMENT,  LIBRY, 


WRT  and  GO. 


/ 


B.  Procedures  calling  INIVRB: 
SEGINT 


C.  Procedures  called  by  INIVRB: 
. C.  ASC  , FRALG 


D.  COMMON  References: 
None 


E . Arguments: 

None 


F.  Values: 
None 


Go  Error  Codes: 
None 


H.  Messages: 
None 


I.  Length: 


23g  or  words 


J.  Source: 

VERBOS  ALGOL 


K.  Files  Referenced: 
None 


t 
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3. 2. 9.  2 COMENT 
Purpose 

To  record  a user's  comment 


Description 

A.  Operation:  Code  = COMENT  (Ptr) 

COMENT  calls  WRT  to  add  the  comment  pointed  to  by  Ptr  to  the 
Monitor  File. 

3.  Procedures  calling  COMENT: 

CLP  (via  CAL  LIT) 

C.  Procedures  tailed  by  COMENT: 

WRT 

D.  COMMON  References: 

None 


E. 


F. 


G. 

H. 

I. 

J. 

K. 


Arguments : 

Ptr:  ASCII  pointer  to  user's  comment 

Values: 

Code  p 0 

Error  Codes: 

None 

C 

Messages: 

None 

Length:  x 

15g  or  13  jq  words 

Source:  \ 

VERBOS  ALGOL 

Files  Referenced: 

None 


282 
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3.2 

.9.3  LIBRY 

Purpos e 

To  make  a library  request 
Desc  ription 

A. 

Operation:  Code  = LIBRY  (Ptr) 

LIBRY  calls  WRT  to  print  a library  request  in  the 
This  is  distinguished  from  COMENT  by  setting  the  variable 

B. 

Procedures  calling  LIBRY: 
CLP  (via  CALLIT) 

- 

C. 

Procedures  called  by  LIBRY: 
WRT 

D. 

COMMON  References: 
None 

E. 

Arguments : 

Ptr:  pointer  to  request  fo: 

!brary  assistance 

F. 

Values: 

Code  = 0 

G. 

Error  Codes: 
None 

H. 

Mes  s ages : 
None 

I. 

i 

Length: 

17g  or  15  j q words 

\ 

J. 

Source: 

VERBOS  ALGOL 

i 

\ 

K. 

AF iles  Referenced: 
None 

. 

O 

ERIC 
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3. 2. 9. 4 WRT 
Purpos  e 

To  write  a user  message 
Desc  ription 

WRT  extracts  a user  message  from  a command  line  and  writes  it  in 
the'Monitor  File  via  ASIDE. 

A.  Operation:  WRT  (Ptr) 

1.  NEXITM  extracts  the  message  up  to  the  next  slash. 

2.  If  LIBRY  has  set  Bib  to  true,  WRT  prints  via  ASIDE: 
*********** LIBRARY  REQUEST********* 

3.  WRT  prints  the  message  and  then  prints  a line  of  asterisks 

R.  Procedures  calling  WRT: 

COMENT,  EIBRY 

C.  Procedures  caLled  by  WRT: 

ASIDE,  NEXITM 

D.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  ASCII  pointer  to  message 

F.  Values:^ 

None 

G.  Error  Codes: 

None 

H.  4ef?5ages: 

Nione 

I.  L^ngt;n: 

32g  or  26 10  words 

J.  Source: 

VERBOS  ALGOL 

K.  Files  Referenced: 

None 


281 
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3, 2. 9, 5 LONG 
Purpose 

To  enter  long  mode 
Description 

LONG  sets  up  TYPEIT  to  use  the  file  of  long  messages  rather  than 
the  short  one. 

A.  Operation  Code  = LONG  ( ) 

1.  VERBOS  (POT.)  is  set  to  1 (long  mode). 

2.  INIT  YP  (DFLN1(  POT  .))  is  called;  the  parameter  DPLNl(POT  .) 
contains  the  first  name  of  the  long  message  file  (LMJFILE). 

3.  If  the  system  is  in  CLAMP  mode,  the  value  of  the  second  word 
of  the  Rissword  File  is  changed  to'  the  BCD  string  MAALONGM. 
(If  an  I/O  error  occurs , the  system  prints  a message  and  goes 
dormant).  If  the  system  is  not  in  CLAMP  mode,  the  value  of 
thp  special  A-core  word  is  changed  to  MAA  LONG” 

B.  Procedures  calling  LONG: 

CLP  (via  CALLIT) 

C.  Procedures  called  by  LONG: 

BUFFER,  CLOSE,  INITYP,  OPEN}  SETWRD 

D.  COMMON  References: 


Name 

Meaning 

Interrogated? 

Changed? 

VERBOS(POT .) 

TYPEIT  mode 

X 

DFLN1  (POT.) 

Long  mess,  file  name  1 

X 

PFN1  (POT.) 

Password  File 

X 

COMBF6(POT.) 

Common  buffer 

X 

CLAMP(SST.) 

Hold  mode 

X 

E.  Arguments: 

None 

F.  Values: 

Code  = 0 

G.  Error  Codes: 

None 

H.  Messages: 

None 


*2 
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X.  Length: 

67g  or  55^  words 

J#  Source: 

VERBOS  ALGOL 

K.  Files  Referenced: 
None 


286 
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3.  2.  9»  6 SHORT 
Purpos  e 

To  entar  short  mode 


Description 

A.  SHORT  works  exactly  like  LONG  except  that  it  sets  up 
use  the  short  message  file. 


Operation  Code  = SHORT  ( ) 

1.  Verbos  (POT  .)  is  set  to  0. 

2.  INITYP  is  called  with  ar  argument  of  DFSNlfpoT  > 

tains  "SMFILE".  1 i''’ 

3.  The  second  word  of  the  Pas  sword  File  (orA-corp) 

"SMFILE".  core; 


B. 

C. 

D. 

¥ 

I * e* 

i 

F. 

G. 

H . 

I. 


Procedures  calling  SHORT: 

CLP  (via  CALLIT) 

Procedures  called  by  SHORT: 

BUFFER,  CLOSE,  DORMNT, 
TYPEIT. 


COMMON  References: 


Name 

VERBOS(POT.) 
DFSN1  (POT.) 
PEN  1<  POT.  ) 
COMBF6(POT.) 
CtAMP(SST.) 


Meaning 


TYPElT  mode 
Short  mess,  file 
Password  file 
Common  buffer 
Hold  mode 


Arguments: 
None 
Values : 


Code  = 0 


Error  Codes: 
None 

sages : 
None 
Length: 


768  or 


62 


10 


INITYP,  OPEN, 


Inte  r rogated  ? 
x 

X 

X 

X 


287 


/ 


TYPEIT  to 

which  con- 
is  set  to 

SETWRD, 

Changed? 

x 


words  - 


# 


3.2.  9- 6 -272 

J,  Source: 

VERBOS  ALGOL 

K.  Files  Referenced: 

None 


O 

ERLC 
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3 0 2 » 9 . 7 INFO 
Purpose 

To  print  a section  of  the  on-line  guide 


Desc  ription 

A.  Operation:  Code  = INFO  (Ascptr) 

CLP  transfers  control  to  INFO  when  it  finds  the  command  "info" 
in  the  user's  command  line-  INFO  uses  NEXITM  to  extract  an  argu- 
ment. If  no  argument  is  specified,  "l"  is  assumed.  A guide  file  mes- 
sage label  is  constructed  by  converting  the  argument  to  BCD  and  append- 
ing iv  to  the  letter  tfA,f.  The  Guide  Message  File  is  opened  by  a call  to 
to  INITYP.  TYPEIT  is  called  with  the  constructed  label  as  an  argument. 
If  TYPEIT  cannot  fine,  this  label  in  the  directory  for  the  guide,  it  zeroes 
out  the  erroneous  argument  and  returns  control  to  INFO  without  typing 
its  usual  error  message.  INFO  calls  INITYP  again  to  cLose  the  Guide 
File  and  reopen  the  Message  File.  If  the  argument  given  to  INFO  was 
zeroed  out,  an  error  message  is  printed. 

B.  P rocedures  calling  INFO: 

CLP  (via  CALLIT) 


O 

ERIC 


E. 


Procedures  called  by  INFO: 

CHKNUM,  CTSIT6,  FRET,  INITYP,  NEXITM,  TYPEIT 


D.  COMMON  References: 


Name 

INFOX(3ST .) 
INFOl(SST-) 
INF02(SST.) 
DFLNIJPOT.) 
DFSN  1(  POT .) 


Meaning 

INFO  requested 
INFOl  requested 
INF02  requested 
Long  message  file  name 
Short  message  file  name 


Int  e r r og  ate  d 7 Changed? 


x 

X 

X 


X 

X 


Argam  ents : 

ASCPTR:  ASCII  pointer  to  user  command  line 

Values : 

Code  = 0 

Error  Codes : 

None 
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H„  Messages: 

1 .  f[X.  is  not  a valid  argument  to  the  ’INFO'  command  ($infoer$) 

Im  Length: 

120g  or  80^q  words 

J.  Source: 

SQUIRE  ALGOL 

K.  Files  Referenced: 

None 
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3. 2. 9.  8 SEEMAT 
Purpos  e 

To  display  results  of  Inverted  File  search  upon  COUNT  command. 

Des  c ription 

CLP  calls  SEEMAT  in  response  to  the  user  command  "COUNT"  or  "C". 
SEEMAT  shows  how  the  lists  of  documents  generated  by  each  term  in  a 
search  specification  are  combined  to  form  a resultant  -list , 

The  search  words  are  printed  out  in  the  order  in  which  they  were 
looked  up*  Two  numbers  follow  each  word:  the  total  number  of  docu- 

ments associated  with  that  word  and  the  total  number  of  documents  which 
match  on  all  of  the  words  looked  up  thus  far.  If  the  document  list  is 
empty,  or  if  it  has  been  reduced  in  size  by  a RESTRICT  operation,  the 
message  ’’current  list  size  is  x"  will  appear. 


1*  If  the  user  is  in  LONG  mode,  SEEMAT  will  print  a header. 

2*  SEARCH  re-ordered  the  subject  and  title  terms  so  that  the 

shortest  lists  would  be  looked  up  first.  SEEMAT  obtains  these 
re-ordered  lists  via  RESUB(CL.  ) and  RETIT(CLo). 

3.  If  SEARCH  did  not  look  up  a word  (because  the  search  had 

failed  before  SEARCH  got  to  this  word),  SEEMAT  prints  "Not 
looked  up"  after  it. 

B.  Procedures  calling  SEEMAT: 


A*  Operation: 


Code  = SEE  MAT  ( ) 


CLP  (via  CALLIT) 
SUPER  (via  CALLIT) 


C.  Procedures  called  by  SEEMAT: 


COPY,  GETEND,  INC,  TNC1,  INTASC,  PUT,  TOTTIM 
TYPEIT 


D.  COMMON  References: 


Name 

VERBOS(POT.) 


TYPEIT  mode 


Meaning 


Interrogated?  Changed? 
x 


E.  Arguments: 
None 


F.  Values: 


ERIC 
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G.  Error  Codes 

None  ' - 

H.  Messages : 

... 1-  "Current  list  size  is  x"  (preset) 

2.  "Ndt-Tooked  up"  (preset) 

3.  " WORD  (STEM-ENDING)  NO.  OF  DOCUMENTS  THAT  MATCH 

THIS  STEM,  ALL  STEMS  SO  FAR.  " 


(/smOl/),  (null) 


I.  Length: 


6l2g  or  402^q  words 


J.  Source: 


SEEMAT  ALGOL 


K.  Files  Referenced: 
None 
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3,  3 List  Manipulation  Logic 
3.  3.  1 Document  Selection 
3.3,  1,1  NUMBER 

Purpos  e 

To  control  DOCUMENT  command 


Des  c ription 

A.  Operation:  Code  = NUMBER  (Ascptr) 

The  number  routine  is  called  directly  from  CLP  (Command 
Language  Processor)  as  a function  of  the  DOCUMENT  (or  D)  command. 

It  accepts  a pointer  to  the  remainder  of  the  command  line  as  in  argument 
which  is  assumed  to  contain  one  or  more  document  numbers  that  the  user 
would  like  activated  as  his  current  list. 

An  array  declared  in  the  source  program  is  used  in  holding  the 
document  numbers  as  they  are  extracted  from  the  command  line.  This 
array  is  currently  50  words  in  length  and  is  usually  sufficient  to  hold 
more  numbers  than  can  be  typed  in  the  two-line  limit  per  command 
(unless  they  are  all  1-  or  2 -digit  numbers). 

Common  buffer  5 is  used  to  read  into  core  the  current  list  of  re- 
ferences (if  there  is  one,  and  if  it  is  at  least  partially  on  the  disk)  so  that 
their  document  numbers  might  be  checked  against  those  that  the  user  se- 
lected. If  the  number  requested  is  found  to  exist  in  the  current  list,  the 
entire  reference  word  is  copied  from  the  list  into  the  50- word-  array  which 
will  become  the  new  list.  This  preserves  such  useful  data  as  term  and 
word  number  of  the  original  search  words  and  allows  OUTPUT  MATCH 
commands  to  work  on  the  new  reduced  list. 

If  the  desired  document  number  is  not  already  in  the  current  list, 

i 

a pseudo-  reference  word  is  constructed  with  a special  code  (77)  in  the  term 
number  position.  This  makes  OUTPUT  MATCH  an  invalid  request  on  this 
document.  It  is  possible  that  the  user  will  present  a string  of  numbers, 
some  of  which  will  be  on  the  current  list  and  some  not.  In  this  case,  the 
resulting  list  will  contain  a mixture  of  real  and  ps  eudo- ref erenc e words  . 
OUTPUT  MATCH  will  then  partially  work  for  the  user  and  a COUNT  com- 
mand will  produce  data  about  the  last  search  (whose  list  is  partially  re- 
tained). 


293^ 


3.  3.  1 . 1 


-278- 


Before  being  compared  to  the  current  list  and  stored  in  the  new 
one,  each  document  number  must  be  read  from  the  command  line  (via  a 
call  to  NEXITM)  and  converted  from  ASCII  characters  to  a binary  number 
(using  ASCINT).  If  this  converter  is  fed  an  argument  -ich  is  non- numeric 
oranumber  greater  than  32,767,  an  error  message  informs  the  user  that 
he  has  used  an  "improper  document  number",  and  NUMBER  loops  back 
to  see  if  there  are  any  others  to  be  found  on  the  command  line. 

If  no  current  list  exists  (RRLE(SST.)  is  false),  the  dummy  term 
number  is  inserted  and  the  pseudo^reference  is  deposited  into  the  new  list. 

If  a current  list  does  exist,  a call  to  GETLIS  (a  sub-procedure  of  ANDER 
residing  in  BOOL  ALGOL)  will  provide  pointers  and  counts  to  that  list, 
reading  the  first  buffer-full  from  the  disk,  if  necessary.  Then  each  refer- 
ence word  of  the  old  list  is  extracted  by  calling  a sub-procedure  within 
NUMBER  named  FETCH.  This  routine  keeps  track  of  when  the  core- stored 
references  of  the  list  are  exhausted  and,  at  that  time,  reads  in  more  via 
RDWAIT . If  the  list  being  read  is  from  an  Inverted  File  segment,  an  ad- 
justment of  one  word  is  made  to  the  list  address  and  reference  counts  to 
allow  for  the  section  header  which  starts  the  block.  If  all  references  have 
been  read  and  processed,  FETCH  returns  a zero  value  to  NUMBER.  If 
FETCH  returns  the  address  of  a reference  word,  its  document  number  is 
pulled  out  for  comparison  to  the  current  command  document  number. 

When  the  document  numbers  match,  the  reference  of  the  old  list 
is  stored  in  the  new  list  by  calling  STORIT  (another  sub-procedure  of 
NUMBER),  and  indicators  are  set  which  show  that  a match  has  been  made. 
STORIT  keeps  track  of  where  in  the  50-word  array  to  deposit  the  refer- 
ence, by  incrementing  a storage  index.  If  this  index  reaches  50,  then  a 
larger  block  of  free  storage  is  needed  to  hold  all  the  references  created 
by  this  DOCUMENT  command.*  This  is  obtained  by  calling  another  sub- 
procedure named  NEDMOR.  In  this  routine,  the  size  of  the  new-list  array 


With  the  present  limit  of  only  two  input  lines  per  command,  this  over- 
flow is  extremely  unlikely. 
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is  increased  by  fifty  locations  and  a new  array  is  obtained  from  free- 
storage.  The  references  already  stored  are  transferred  into  the  / 

large  array. 

If  the  comparison  of  document  numbers  shows  that  the  com- 
m and  - line  ’ s document  number  is  below  the  one  in  the  current  position 
of  the  old  reference  list,  then  NUMBER  loops  back  to  call  FETCH  for  the  . 
next  reference  in  the  old  list.  If  the  command  document  is  above  the  list 
position,  then  the  document  is  not  on  the  current  list  and  a ps eudo - ref erenc e 
is  constructed  and  stored. 

After  each  command  document  is  handled,  a test  is  made  for  the 
end  of  the  command  (slash).  If  this  has  not  been  reached,  NUMBER  loops 
back  to  call  NEXITM  again  and  take  the  next  command  document. 

If,  after  all  documents  in  the  command  have  been  processed,  the 
new  list  storage  index  is  zero,  an  error  message  (2)  informs  the  user  that 
he  has  failed  to  provide  any  (legitimate)  document  numbers  in  his  command. 

If  a new  list  has  been  established,  then  the  old  one,  if  it  exists, 
is  deleted.  When  the  indicator  shows  that  at  least  one  command  document 
number  was  found  on  the  old  list,  DELIST  is  called  to  merely  remove  the 
old  augmented  list  pointer  from  the  table.  The  rest  of  the  old  search 
structure  is  kept  to  supply  maximum,  information  if  a COUNT  command 
/follows.  If  the  new  list  is  entirely  composed  of  pseudo-references  un- 
related to  a prior  search,  then  CLEANP  is  called  to  erase  all  remnants 
of  the  last  search.  In  this  case,  RLIC(SST.  ),  the  indicator  Which  prevents 
calling  of  CLEANP  at  the  outset  of  a new  search  request,  is  set  to  prevent 
a repeated  cleanup  of  the  search  structure. 

If  the  Name  File  or  an  Inverted  File  segment  was  opened  by 
calling  GETLIS,  it  is  now  closed. 

Other  wrapup  chores  include  setting  the  RRLE(SST.  ) indicator, 
sorting  the  new  list  by  descending  document  numbers  (using  a sort  routine  named 
DNSORT),  and  entering  the  new  augmented  pointer  into  the  pointer  table 
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via  TABENT.  The  address  of  this  augmented  pointer  goes  ir.  RRL,(CL.) 
and  the  number  of  documents  involved  in  the  list  goes  into  tht  lecrement 
oi  RRL.  and  into  DCNT(CL.). 

Finally,  the  document  number  comrr  and  indicator,  d .^C{SST-)  is 
set  to  alert  the  command  Language  Processor  that,'  if  thf«  use]  did  not 
issue  an  OUTPUT  command  with  his  DOCUMENT  comm— nd,  message 

should  be  printed  informing  him  of  the  size  of  his  new  lis  t anc  how  he  can 

jjc 

get  output.  . This  message  cannot  be  given  by  NUMBER  since  there  is  no 
way  of  its  knowing  if  an  OUTPUT  command  follows. 

In  all  cases,  NUMBER  returns  a zero  value  to  CLP.  ^ 


B.  Procedures  Calling  NUMBER:  , 

CLP  (via  CALLIT) 

t 

C.  Procedures  Called  By  NUMBER: 

ASCINT,  CLEANP,  CLOSE,  DELIST,  DNSORT,  FRET,  FREE, 
GETLIS,  NEXITM,  RDWAIT,  TABENT,  TYPEIT 


D. 


E. 


F. 


COMMON  References: 


Name 

COMBF5(POT .) 
RRLE(SST.) 
RLIC(SST.) 
DNC(SST.  ) 


Meaning  Interrogated? 

Common  buffer  x ) 

Reference  list  exists 
Restored  list  in  core 
Doc.  command  given 


Arguments: 

Ascptr:  ASCII  pointer  to  user  command  line  j 

l 

I 

Values: 

Code  =0 


Changed? 


x 

X 


G.  Error  Codes: 
None 


* 

Given  in  "long  mode"  only. 
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«& 


H„  Messages: 

de 

1.  r,JUNK  is  an  improper  document  number  and  has  been  ignored 

in  processing  your  command/1  ($dnerrl$) 

2.  MYou  have  not  included  any  (legitimate)  document  numbers  in 

your  command.  11  ($dnerr2$) 

The  character  string  supplied  by  the  user  is  given  here. 

I.  Length: 

716g=  46Zi0 

J.  Source: 

INTPRT  ALGOL 

K.  Files  Referenced: 

AInnn  (date) 

SInnn  (date) 

DUMnnn  FILE 


f 

4 ..  • 

i 

¥' 

if 

i 

} 

i 


% 
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3.3,2  Naming  and  Restoring 
3.3.2.  1 IN  IRES 

Purpose 

To  initialize  list  pointer  table  and  session  files 
Description 

This  procedure  was  originally  written  to  initialize  the  aug- 
mented list  pointer  table  and  the  Name  File  into  which  named  lists 
would  be  written.  It  has  grown  to  include  the  setting  up  of  file  names 
for  the  Dump  File,  the  Monitor  File,  and  the  Password  File,  and  also 
contains  the  Mcentral  error  exit11  which  will  be  taken  whenever  any  I/O 
error  is  encountered  by  Intrex.  It  is  called  during  session  initializa- 
tion. 

A.  Operation:  INIRES(Snam) 

The  list  pointer  table  is  a declared  array  (currently  120  loca- 
tions long)  which  is  used  to  hold  (up  to  40)  augmented  list  pointers. 
The  address  of  this  array  is  established  here  and  is  available  to  the 
procedure  TABENT  which  stores  the  pointers. 

The  first  names  of  the  three  files  are  chosen  by  starting  with 
DUM001  and  testing  (via  FSTATE)  to  see  if  it  has  been  opened  by  an- 
other user.  If  so,  the  name  is  changed  to  DUM002,  etc.,  until  a file 
is  found  which  is  not  open.  Once  a number  has  been  selected  for  the 
Dump  File  name,  it  is  also  used  to  construct  the  names  of  the  Monitor 
and  Password  files. 

The  Password  File  is  only  created  when  the  system  has  been 
started  using  the  Mholdff  argument,  which  causes  the  "dynamic" 
initialization  routine  DYNAMO,  called  prior  to  the  execution  of  XNIRES, 
to  set  an  indicator  in  the  System  State  Table,  CLAMP(SST).  When  this 
flag  is  on,  INIRES  first  sets  up  the  Password  File  names,  and  then 
writes  (using  WRWAIT)  the  contents  of  ESCODE(POT)  into  word  one 
of  this  file.  This  location  of  the  POT  contains  the  code  word  issued 
immediately  after  the  "hold"  argument  by  the  person  who  resumed 
Intrex.  If  none  was  supplied  by  the  user,  the  word  "escape"  is  used 
by  Intrex  as  the  password  and  placed  into  ESCODE(POT)  during  the  exe- 
cution of  DYNAMO. 
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The  password  file  contains  one  oth^r  word  of  data- -the  word 
Mlongn  or  ’’short”,  depending  upon  which  mode  the  user  has  selected. 

For  no  reason,  other  than  convenience,  the  INIRES  routine 
was  chosen  to  contain  the  central  i/O  eriror  exit  for  Intrex.  This  is  set 
up  by  calling  a procedure  named  SETRTN  (Section  3.1.  10  2)  which  has 
as  an  argument  the  labe/l  (EREXIT)  of  a location  to  which 

control  is  to  be  returned  whenever  an/error  is  encountered  during  Intrex’s 
many  reading  or  writing  operations.  It  should  be  pointed  out  here  that 
program  stops  or  other  unusual  terminations  (such  as  console  turn-offs) 
will  not  return  control  to  this  location. 

In  one  or  two  pl*y^es-in  Intrex,  such  as  i*?VIFSRCH,  special 
Localized  error  returns  are  specified’ which  over-ride  the  global  one 
set  by  SETRTN.  This  is  done  to  allow  certain  types  of  errors  (such  as 
"file  already  open")  to  be  ignored  at  the  point  of  detection.  When  that  ^ 
local  routine  examines  the  error  code  and  finds  an  "unacceptable"  one, 
it  then  must  go  to  the  central  error  location  by  way  of  a procedure  call. 
For  this  reason,  EREXIT  is  embedded  in  a routine  within  INIRES  named 
ERRGO  (Section  3.  1.  10.  1). 

B.  Procedures  Calling  INIRES: 

DYNAMO 

C.  Procedures  Called  By  INIRES 

SETRTN,.  C.ASC,  DEFBC,  FSTATE,  OPEN,  BUFFER, 

FILCNT,  TRFILE,  WRWAIT,  CLOSE,  IODIAG,  TYPEIT, 

BCDASC,  OCTASC,  BFCLOS,  DORMNT 


D. 


COMMON  References: 


Name 


Meaning 


Interrogated?  Changed? 


COMBFO(POT-) 

Common  buffer 

X 

MFNl(POT.) 

Monitor  file  name 

DFNl(POT.) 

Dump  file  name 

PFNl(POT.) 

Password  file  name 

ES CODE  (POT.  ) 

Escape  code 

X 

VERBOS(POT.  ) 

TYPEIT  mode 

X 

CLAMP(SST.) 

Hold  mode 

X 

x 

x 

x 


E.  Arguments: 

Snam:  system  name  (in  BCD) 
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F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

(See  ERRGO  in  Section  3 a 1.  10.  1) 


NOTES: 

1.  The  CTSS  error  code  is  printed  here 

2.  The  name  of  the  I/O  procedure  in  which  the  error  occurred 

— _ is  printed  here. 

3.  The  address  of  the  procedure  call  to  the  erring  routine  is 
given  here. 

4.  The  names  of  the  file  involved  in  the  error  are  given  here. 


I.  Length: 


375g  or  253jq  words 


J#  Source: 

RES  LIS  ALGOL 

K.  Files  Referenced: 

DUMnnn  FILE 
PASnrrn  FILE 


/ 
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3.  3.  2.  2 NAME 


Purpos e 
T o name  a list 
De 3 c ription 

The  Intrex  NAME  command  causes  the  "Command  Language 
Processor"  (CLP)  to  call  the  procedure  NAME.  This  routine  should 
logically  reside  in  RESLIS  ALGOL,  but  it  had  to  be  moved  out  due  to 
the  limitations  of  the  AED  compiler.  Therefore,  NAME  now  is  found 

in  ANDOR  ALGOL  along  with  the  procedures  AND.,  OR.,  etc. 

* 

A,  Operation:  Code  = NAME  (iistpt) 

The  one  argument  passed  to  NAME  ““consists  of  a pointer  to 
the  remainder  of  the  command  line.  A call  to  NEXITM  extracts  the 
next  word  from  the  line,  which  is  assumed  to  be  the  name  the  user 
wishes  to  assign  to  the  current  reference  list. 

Before  this  occurs,  however,  a name  for  the  Name  File  must 
be  established.  If  no  previous  NAME  command  was  issued,  the  name 
file  component  of  the  POT,  NFNl(POT),  will  be  empty  upon  entering 
the  routine.  In  this  case,  a first  name  of  the  Name  File  is  constructed' 
of  the  form  NAM , where  the  last  three  characters  are  the  same  as 

those  of  the  Monitor  and  Dump  Files.  It  is  then  inserted  into  NFN  l(FOT) 

• ( 

and  a zero-length  file  with  that  name  is  created  via  a call  to  TRFILE. 

The  Name  File  is  then  opened  for  writing  and  buffered  (using 
common  buffer  6). 

When  the  name  is  obtained  from  the  command  line,  it  is  looked-up 
(via  LOOKUP  in  NEXITM  ALGOL)  in  the  command  table  to  make  sure  it 

age 

is  not  ambiguous  with  an  Intrex  command.  If  the  ambiguity  does  exist, 
a message  to  that  effect  (1)  is  typed  to  the  user,  he  is  asked  to  use  an- 
other name,  and  NAME  returns  to  CLP. 

If  no  command  ambiguity  is  found.^proeedure  named  CHKNAM 
is  called.  This  routine  (Section  3.3. 2. 4)  converts  the  ASCII  name  to 
BCD  codes  and  scans  the  list  pointer  table  to  see  if  any  list  already 
exists  with  that  name.  If  CHKNAM  returns  a value  greater  than  or  equal 
to  zero,  it  found  a matching  name  at  this  location  in  the  table.  The  user 


*The  importance  of  this  will  be  made  clear  in  the  description  of^RESTOR 
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is  then  informed  that  his  name  is  ambiguous  with  a previous  name  and 
that  he  should  choose  another  (2). 

If  the  name  passes  the  two  ambiguity  tests,  it  then  is  compared 
to  the  word  ALL,  since  that  word  also  must  be  prohibited  (3)  to  allow 
DROP  ALL.  commands.  Assuming  an  acceptable  name  has  been  issued, 
the  next  step  is  to  take  the  current  list  pointer  from  RRL(CL).  Two  more 
conditions,  here,  may  cause  the  name  operation  to  be  aborted.  If  no 
pointer  is  found  in  RRL(CL),  an  error  message  (4)  informs  the  user  that 
he  has  "no  current  list".  If  a pointer  exists  whose  type  is  4,  meaning 
it  already  is  a named  list,-  the  user  is  informed  that  he  cannot  name  the 
1 ist  twic e (6). 

Lists  of  any  other  type  are  written  into  the  Name  File  by  having 
the  Boolean  procedure,  ANDER,  do  the  bookkeeping  and  writing  involved, 
thus  saving  a duplication  of  this  kind  of  coding.  This  is  accomplished 
through  a special  set  of  arguments  to  ANDER  (all  zero  except  the  list 
pointer)  which  tells  ANDER  that  this  is  a dummy  operation  intended 
solely  for  writing  the  entire  list. 

A list  that  has  thus  written  into  the  Name  File  is,  of  course,  en- 
tirely dis c — re s ident.  The  unused  third  word  of  its  augmented  pointer  is 
then  to  hold  the  document  count  of  that  list.  This  is  necessary  when  the 
named  list  becomes  non-current,  since  the  count  would  then  be  lost  in 
RRL(CL)  and  DQNT(CL). 

NAME  finishes  by  setting  the  LISAV(SST)  bit,  which  indicates 
that  at  least  one  list  has  been  named,  changing  the  tag  of  list-pointer 
word  two  to  a 4 to  classify  the  list  as  having  been  named,  inserting  the 
BCD-coded  name  of  the  list  into  word  one  of  the  agrfmented  pointer;  de- 
leting  the  present  (current)  list  pointer  by  calling  a procedure  in  RESLIS 
named  DRPPTR,  setting  RRL(CL)  to  point  at  the  named  list,  informing 
the  user  that  his  list  has  been  named  (7),  and  closing  the  Name  File. 

NAME  then  returns  a zero  value  to  CLP  to  indicate  a completed 

call. 

3.  Prop e dure s Calling  NAME: 

CLP  (via  CALLIT) 
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C.  Procedures  Called  By  NAME: 

OPEN,  BUFFER,  TRFILE,  NEXITM,  TYPEIT,  CHKNAM, 
ANDER,  DRPPTR,  CLOSE 


D.  COMMON  References: 


Name  {- 

Meaning  Interrogated? 

Changed? 

NFNl(POT.) 

Name  file  name  x 

X 

COMBF6(POT.) 

Common  buffer  x 

COMT  B(  POT . ) 

Command  table  x 

LISAV(SST.) 

List  saved 

X 

Arguments : 

l 

j 

Listpt:  ASCII  pointer  to  user  command  line 


F.  Values: 

Code  = 0 


G.  Error  Codes: 
None 


H.  Messages: 


£ 

tu 

I 

X 


f o 

IERIC 


3. 

4. 

5. 

6. 

7. 

NOTES: 


"Your  list  name  is  ambiguous  with  the  Intrex  command,  C . 
Please  use  another  name."  ($nam5$,  $nam6$,  $nam8$) 

"Your  list  name  is  ambiguous  with  a previously  NAMEd  list. 
Please  use  another  namey1  ($nam5$,  $nam7$,  $nam8$) 

"All  is  a restricted  word  for  naming  lists."  ($nam9$) 

r,You  have  no  current  list.  Your  NAME  command  cannot  be 
processed."  ( $nam  12$) 

\ 

"You  have  not  given  a name  for  your  list."  ($namll$) 

"Your  current  list  has  already  been  named  and  cannot  be 
named  again."  ($namlO$)  f 

"C  * is  now  the  name  of  your  current  list."  (/nameok/) 


1.  The  name  supplied  by  the  user  is  given  here. 

- 
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I.  Length: 

402g  or  258jq  words 

J.  Source: 

AN  DOR  ALGOL 

K.  Files  Referenced: 

NAMnnn  FILE 
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3.  3. 2.  3 


T» 
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3>  3,  Z,  3 TABENT 
Purpose 

To  enter  pointer  in  table 
De  s c ription 

This  procedure  resides  in  RESLIS  ALGOL,  along  with  the  list- 
pointer  table  which  it  fills.  When  a routine,  such  as  ANDER,  IFSRCH 
or  NAME,  has  constructed  a new  augmented  pointer  to  go  into  the  table 
of  list  pointers,  TABENT  is  called  with  a pointer  to  the  augmented 
pointer  as  an  argument, 

A.  Operation:  Addr  = TABENT  (Ptr) 

TABENT  first  scans  down  the  table,  examining  the  second  and 
third  words  of  each  table  slot  to  find  one  in  which  both  words  are  empty. 
(No  list  can  exist  without  at  least  one  of  these  being  filled.)  If  no  empty 
slot  is  found,  the  user  is  informed  that  his  list  table  is  full  and  he  must 
DROP  some  lists  before  assigning  any  more  names  to  lists.  The  extensive 
use  of  the  NAME  command  is  the  only  way  in  which  the  table  can  be  filled 
up,  since  old  search  lists,  etc.  , are  deleted  from  the  table  as  soon  as 
they  are  made  inactive  by  creating  a new  current  list. 

If  an  empty  slot  is  located,  the  three  computer  words  pointer  to 
by  the  argument  ptr  are  copied  into  the  table  slot.  The  location  (core 
address)  of  this  newly  filled  slot  is  then  returned  as  a value  to  the  calling 
program. 

B.  Procedures  Calling  TABENT: 

NAME,  IFSRCH,  ANDER,  NEW  PT 

C.  Procedures  Called  By  TABENT: 

TYPEIT 

D.  COMMON  References 

None 

E.  Arguments: 

Ptr:  points  to  the  3-word  argmented  reference  list  pointer 
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F.  Values: 

Addr  = location  of  filled  slot  in  list  of  NAMEd  lists 

G-  Error  Codes: 

Addr  = 1:  list  table  full 

H.  Messages: 

11  Your  NAMEd- list  file  is  full*  You  must  DROP  one  or  more 
list  names  before  re-issuing  your  NAME  command. 11 


I.  Length: 

77g  or  63 words 

J.  Source; 

RESLIS  ALGOL 

K.  Files  Referenced: 

None 


/ 


O 

ERIC 
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3.3,2, 4 CHKNAM 
Purpose 

To  check  list  name  against  pointer  table 
De  s c ription 

A.  Operation:  Addr  - CHKNAM  (Ptr,  Ln) 

This  procedure  is  called  for  two  purposes.  First,  it  converts 
the  li&t  name  pointed  to  by  the  first  argument  to  a BCD  character-string 
of  one-to-six  characters.  This  converted  name  is  placed  in  the  second 
argument  by  CHKNAM. 

Second,  the  converted  name  is  then  compared  to  the  first  word 
of  each  entry  in  the  list-pointer  table.  If  a match  is  found,  the  core  ad- 
dress of  the  matching  name  is  returned  to  the  calling  program. 

One  exceptional  case  is  made  when  CHKNAM  is  called  from  the 
SAVE  procedure  with  the  list  name,  ALL.  Here,  the  first  argument  is 
changed  to  contain  the  location  of  the  top  of  the  list  pointer  table.  This 
is  then  used  by  SAVE  in  scanning  down  the  table  to  SAVE  all  NAMEd  lists 
(see  description  of  SAVE  in  Section  3.  3. 3.  1). 

i 

Procedures  Calling  CHKNAM: 

AND,  DROP,  LIST,  NAME,  RESTOR,  SAVE,  USE 

Procedures  Called  By  CHKNAM: 

BZEL,  CTSIT6,  FRET,  RJUST 

COMMON  References 
None 

Arguments: 

Ptr:  ASCII  pointer  to  name  of  list 

LN:  Name  of  list  in  BCD  (returned  to  calling  procedure). 

Values : 

Addr  = location  of  name  in  list-pointer  table 


3 07$  (A 


B. 

C. 

D. 

E. 

F. 


O 
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G.  Error  Codes: 

Addr  - - 1 : Name  not  in  pointer  table 

H.  Messages: 

None 

I.  Length: 

107g  or  words 


J.  Source 


RES  LIS  ALGOL 


K.  Files  Referenced: 
None 


t 


i o 
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3.  3 . 2. 5 


3.  3.  2.  5 RESTOR 
Purpose 

To  restore  a NAMEd  list 
Desc  ription 

' This  routine  is  called  by  CLP  as  the  result  of  Intrex’s  only 

•’implied"  command.  When  the  user  wishes  to  re-activate  or  "re- 
store" one  of  his  NAMEd  lists,  he  merely  types  the  name  of  the  list. 
The  Command  Language  Processor  (CLP)  first  tries  to  interpret  the 
name  as  an  Xntrex  command  (which  is  why  the  NAME  routine  will  not 
allow  the  user  to  assign  names  which  are  ambiguous  with  commands). 
If  CLP  fails  to  find  it  in  the  command  table,  the  name  is  then  passed 
to  RESTOR  to  see  if  it  is  a NAMEd  list.  . 


ft* 


i 


A.  Operation:  Code  = RESTOR  (Aptr) 

The  argument  Aptr  passed  on  to  CHKNaM  to  see  if  the  name 
it  points  to  is  in  the  table  of  NAMEd  lists.  The  value  returned  from 
CHKNAM  will  be  less  than  zero  if  the  name  is  not  found.  In  this  case 
RESTOR  returns  an  error  code  to  CLP,  which  will  then  declare  the 
"name"  to  be  an  illegal  command. 

If  CHKNAM  returns  a positive  value,  it  is  the  address  of  the 
augmented  list  pointer  whose  first  word  contains  the  same  as  the  one 
given.  This  pointer  is  then  made  the  "active"  or  "current"  list 
pointer  by  inserting  it  into  RRL(CL),  but  only  after  deleting  the  old 
current  list  from  the  list  table.  If  that  list  was  also  a "restored"  list 
(RLIC(SST)  on),  then  the  deletion  is  made  via  DELIST.  Otherwise, 
CLEANP  is  called  to  clean  up  the  entire  search  structure. 

The  document  count  of  the  newly  restored  list  is  transferred 
from  the  third  word  of  the  list  pointer  (where  it  was  saved  by  NAME) 
to  the  decrement  of  RRL(CL)  and  DCNT(CL). 

The  restored- list-is -current  indicator  (RLIC)  and  the  resultant- 
reference-list-exists  indicator  (RRLE)  are  set  and  RESTOR  returns  a 
zero  value  to  CLP. 
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B.  Procedures  Calling  RESTOR: 

CLP  (via  CALLIT) 

C.  Procedures  Called  By  RESTOR: 

CLEANP  (via  CALLIT),  CHKNAM,  DELIST 

Changed? 
x 

X 


\ 


H.  Messages: 

None 

I.  Length: 

75g  or  61jq  words 

J.  Source 

RES  LIS  ALGOL 

K.  Files  Referenced: 

None 


D.  COMMON  References 

Name 

RLIC(SST-) 

SNX(SST.) 

RRLE(SST .) 

E . Arguments; 

Aptr:  ASCII  pointer  to  user  command  line 

F*  Values: 

Code  = 0 

G.  Error  Codes: 

Code  = -1:  Name  not  found  in  table 


Inter  rogated* 


Restored  list  in  core 
Search  not  executed 
Reference  list  exists 


f 
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3.  3. 2. 6 


3. 3.2. 6 LIST 
Purpose 

To  display  the  list  names 
Des  c ription 

A.  Operation:  Code  = LIST  (Arg) 

This  procedure  is  called  by  CLP  in  response  to  a user's 
LIST  command.  The  LIST  command  may  be  used  for  any  of  three 
purposes.  The  simplest,  executed  by  typing  the  word  LIST  with  no 
arguments  following  it,  will  cause  the  procedure  to  produce  a list  of 
the  user’s  NAMEd  reference  lists.  A call  to  NEXITM  will  return  a 
zero  value  if  no  argument  exists.  This  tells  LIST  to  scan  the  list- 
pointer  table  looking  for  augmented  pointers  to  NAMEd  lists  (type  4). 

Each  one  that  is  found  is  converted  to  ASCII  by  BCDASC  and  printed 
via  TYPEIT.  This  mode  of  LIST  is  also  called  by  the  USE  procedure 
! described  with  SAVE  in  Section  3.  3.  3.  3, 

A second  use  for  LIST  is  implemented  when  NEXITM  returns 
a pointer  to  the  word  FILE..  In  this  case,  the  user  is  asking  for  a 

V 

listing  of  the  Save  File  names  which  are  kept  in  a directory  on  the  disc. 
This  list  of  file  names  is  produced  by  calling  a procedure  named  LISFIL, 
which  resides  in  SAVLIS  ALGOL  and  is  described  in  Section  3. 3.  3.7. 

| A third,  use  of  LIST  is  activated  by  following  the  LIST  command 

£ with  the  name  of  a save  file,,  whose  list  names  the  user  would  like  to 

!'  see.  if  the  word  after  the  LIST  command  is  not.  FILE,  it  is  compared 

to  the  current  Save  File  name  in  the  POT  (if  there  is  one).  Failing  a 
match  there,  the  Save  File  directory  is  scanned  to  see  if  the  argument 
is  the  name  of  a non-current  Save  File.  This  is  done  by  calling  the  proce- 
dure CHKSAV  (Section  3. 3.  3.  2).  If  CHKSAV  says  the  name  is  not  in 

the  directory,  an  error  message  is  printed  (2)  and  LIST  returns  to  CLP. 
If  the  name  is  found,  LIST  calls  LISTSL  (Section  3. 3.3.6)  which  will 
read  and  print  the  list  names  stored  in  that  Save  File. 


3±i 
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B.  Procedures  Calling  LIST: 

C LP( via  CALLIT),  USE 

jC.  Procedures  Called  By  LIST: 

Via  CALLIT:  CHKSAV,  LISFIL,  LISTSL 
Directly:  CHKNAM,  NEXITM,  TYPEIT 

D.  COMMON  References: 

Name  Meaning 

SFNlfPOT.)  Save  file  name 

E.  Arguments: 

Arg:  ASCII  pointer  to  user  command  line 

F.  Values: 

Code  = 0 

G.  Error  Codes: 

None 

H.  Messages: 

1#  "N^  NAMEd  Lists  currently  being  held1’  (/namO/ , /nam4/) 

2.  "Filel  is  not  a SAVE  file  name’1  (/liserl/) 

NOTES: 

1.  The  word  supplied  by  the  user  is  given  here. 

L<eng  th: 

217g  or  145^q  words 
Source: 

res  lis  Alqol 

Files  Referenced: 

None 


I. 

J. 

K. 


O 


Inte  r rogated?  Changed? 

x 
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3.  3.  2. 7 


3 » 3 . 2 . 7 DRgf 

Purpos  e 

To  drop  a named  list  op  a Save  Kile 
Desc  ription 

f 

A.  Operation:  Code  = DROP(Ptr) 

This  procedure  is  called  by  CLP  in  response  to  a DROP  com- 
mand. It  accepts  a pointer  to  the  remainder  of  the  command  line  and, 
from  it,  extracts  names  of  lists  which  are  to  be  deleted  from  the  list- 
pointer  table.  NEXITM  is  called  repeatedly  to  access  the  next  name 
until  a delimiter  other  than  space  (slash)  is  found  to  end  the  string  of 
names  , 

If  no  item  is  found  to  follow  the  DROP  command,  an  error 
message  (1)  is  displayed  to  the  user  and  DROP  returns  to  CLP. 

If  NEXITM  return's  with  a pointer  to  an  item,  that  pointer  is 
passed  as  an  argument  to  CHKNAM  (Section  3.  3. 2.4)  to  see  if  the  name 
is  in  the  table.  A negative  value  from  CHKNAM  indicates  that  the  name 
was  not  found.  The  user  is  told  that  this  name  is  not  that  of  a NAMEd 

liSjt  (1)  and  the  next  item  is  taken  (if  any). 

A positive  value  from  CHKNAM  would  be  the  tefble  location 

of  the  list  pointer  to  be  dropped.  Zeroes  are  deposited  into  the  three  . 

words  of  this  table  entry,  an  indicator  is  set  showing  that  a deletion 
was  made,  and  the  next  item  is  sought. 

When  no  more  names  are  found  in  the  command,  the  Name 

File  is  condensed  (if  any  c^ele tions  were  made)  by  calling  a proce- 

\ * 

dure  named  CONNAM  (described  below).  This  procedure  re-writes 
the  Name  Kile,  omitting  the  deleted  lists. 

Two  exceptional  cases  are  recognized  by  DROP.  If  the  list 
name  is  ALL,  then  the  entire  list-pointer  table  is  zeroed  out  (thus 
killing  the  current  list  also).  The  "named-list  flag1'  of  the  System- 
State-Table,  LISAV(SST),  is  set  to  false,  the  Name  File  is  deleted 
from  the  disc,  and  its  name  is  removed  from  the  POT. 

If  the  item  found  after  the  DROP  ^command  is  KIKE,  the 
meaning  of  the  DROP  command  is  completely  changed.  It  now  be- 

* 

comes  a request  to  delete  a Save  Kile  from  the  disc.  Another  call  to 

[ V 'ir.  ^ *■ 

NEXITM  is  made  to  get  the  name  of  the  file  to  be  dropped.  This  time 

313 
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a call  to  CHKNAM  is  made  merely  tc  convert  the  file  name  to  BCD. 
Tho  converted  name  is  then  passed  to  another  procedure,  CHKSAV, 
which  determines  if  the  name  of  the  file  exists  in  the  Save  File  direc- 
tory (see  Section  3. 3.  3.  2).  A zero  returned  from  CHKSAV  indicates 
no  such  file  exists.  The  user  is  then  informed  of  his  error  (4)  and 
DROP  returns  to  CLP. 

If  CHKSAV  indicates  the  file  is  there,  a call  to  DELFIL  (a 
CTSS  procedure)  deletes  it  from  the  disc.  Its  directory  entry  is  re- 
moved by  calling  CONDIR  (see  Section  3.  3.  3.  5)  using  the  di  rectory 
address  returned  by  CHKSAV  as  an  argument  to.  CONDIR. 

Here,  also  additional  names  may  be  processed  by  re-calling 
NEXITM  until  a command  terminator  (slash)  is  found. 

B.  Procedures  Calling  DROP: 

CLP  (via  CALLIT) 

C.  Procedures  Called  By  DROP: 

NEXITM,  CHKNAM,  DELFiL,  CALLIT( CHKSAV,  CONDIR), 
CONNAM,  TYPEIT,  BCDASC 

\ 

\ i 

D.  COMMON  References:  \ 

\ I 

Name  Meaning  •»  Interrogated?  Changed? 

, I 

NFNl(POT.)  Name  fild  name  x x 

LISAV(s£T.)  List  saved  ■*  x 

E.  Arguments: 

Ptr:  ASCII  pointer  to  user  command  line 


F.  Values: 

Code  — 0 

G.  Error  Codes: 

/None 
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H.  Messaga^: 

1.  "Y<?h  have  not  provided  the  name  of  a NAMEd  list"  ($nam3$) 

2.  "L^t  has  not  been  NAMEd"  ($nam2$) 

3.  "T'ji?  T^AMEd  lists  currently  being  held"  ($namO$,  $nam4$) 

4.  is  not  a SAVE  file  name"  ($userl$) 

5.  "Y^h.  have  not  provided  the  name  of  a SAVE  file"  ($userl$) 


NOTES:  . 

1 Th^  name  provided  by  the  user  is  given  here. 

X.  Length; 

23^§  or  15710  words 

J.  Source; 

R£sLlS  ALGOL 

K.  Files  referenced: 


) 


/ ■ 

I 
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3.  3. 2. 8 CONNAM  x 

Purpose 

To  condense  the  Name  File 
Desc  ription 

A.  Operation: 

When  the  DROP  command  succeeds  in  deleting  a NAMEd- list 
pointer  from  the  table,  the  list  itself  is  removed  from  the  Name  File 
to  prevent  that  file  from  growing  any  larger  than  necessary.  This  is  ac- 
complished by  scanning  the  list-pointer  table  and  noting  all  lists  which 
are  NAMEd  (type  4).  The  table  position  of  each  of  these  lists  is  saved 
in  an  array  for  use  in  reconstructing  the  Name  File. 

A temporary  file  named  TEM~--,  where  the  last  three  char- 
acters of  the  name  correspond  to  those  of  the  Pump,  Monitor,  and  Name 
Files,  is  created  to  hold  the  lists  which  are  to  be  retained.  Then  the 
array  of  table  positions  supplies  pointers  to  the  lists  which  mustbe  read 
from  the  old  Name  File  and  written  into  the  new  one.  As  each  list  is 
copied,  its  depth  in  the  new  file  is  inserted  iiito  the  second  word  of  the 
augmented  pointer. 

When  all  the  NAMEd  lists  have  been  copied,  the  new  file  is  re- 
named (via  CHFILE)  to  the  original  Name  File  name,  destroying  the 
original  file. 

If  the  original  Name  File  is  larger  than  100  records,  the  user 
is  warned  of  a possible  delay  during  re-writing. 

B.  Procedures  Calling  CONNAM: 

DROP 

C.  Procedures  Called  By  CONNAM: 

FILCNT,  TYPEIT,  OPEN,  BUFFER,  CLOSE,  RDWAIT, 

W RW AIT.,  TRFILE,  DELFIL,  CHFILE,  FRER,  FREE, FRET 
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D0  COMMON  References: 


Name 

TOTNAM(POT.) 

NFNl(POT.) 

COMBF6(POT.) 

COMBF6(POT.) 


Meaning  Interrogated?  Changed? 

Dump  File  pointer  x 

Name  File  name  x 

Common  buffer  x 

Common  buffer  x 


E.  Arguments: 
None 


F.  Values: 

None 

G0  Error  Codes: 
None 


Hs  Messages: 

"There  will  be  a slight  delay  while  Iritrex  cor^Vnses  your 
NAMEd  List  File.  Please  stand  by."  ($col  i>) 


I. 


J. 


Length: 

435Q  or  285in  words 
o /j  10 

Source:  '* 

RESLIS  ALGOL 


K. 


Files  Referenced: 

TEMann  FILE 
NAMnnn  FILE 
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3.3.3  Saving  and  U s ing 
3.  3.  3.  1 SAVE 


Purpos  e 

To  save  a NAMEd  list  in  a file. 
Description 


When  used  alone,  the  command  SAVE  will  copy  the  references 
in  a previously  NAMEd  list  into  a permanent  disk  file  for  use  during 
future  Intrex  sessions.  When  used  before  the  word  FILE,  a file  for 
the  above  purpose  will  be  opened  for  writing.  The  first  name  of  the 
file  or  the  name  of  the  list  to  be  saved  are  given  as  arguments  to  the 
command. 


A . Operation:  Code  = SAVE(LIST)  or  SAVE  FILE  (SFILE) 

The  procedure  SAVE  is  called  by  the  command  language 
processor  (CLP)  in  response  to  the  user  command  SAVE,  or  SAVE 
FILE.  The  latter  is  used  to  create  a Save  File  name  which  the  user 
may  then  fill  with  NAMED  lists  that  he  would  like  to  SAVE  for  future 
sessions  of  Intrex. 

The  procedure  accepts  as  an  argument  the  pointer  to  the  rest 
of  the  command  line,  and  calls  NEXITM  to  extract  the  next  word.  If 
a next  word  does  not  exist,  an  error  message  (1)  is  issued  and  SAVE 
returns  to  CLP. 

If  a next  word  exists,  it  is  passed  to  CHKNAM  (described  in 
Section  3.  3.  2. 4)  which  converts  the  word  to  BCD  and  looks  it  up  in 
the  list-pointer  table.  Names  not  in  the  table  cause  CHKNAM  to  re-, 
turn  a negative  value.  This  prompts  SAVE  to  determine  if  the  "name" 
is  the  word  FILE  or  the  word  ALL.  If  it  is  neither,  the  same  error 
message  (1)  as  above  is  given  and  SAVE  returns. 

The  word  FILE  after  a SAVE  command  produces  another  call 
to  NEXITM  to  get  the  name  the  user  wants  to  assign  to  his  Save  File. 
Here  again,  if  NEXITM  can  find  no  next  word,  an  error  message  (4) 
is  typed.  Otherwise,  CHKNAM  is  called  to  convert  the  name  to  BCD. 
If  the  name  is  FILE,  the  user  is  informed  (message  2)  that  this  word 
cannot  be  used  as  a Save  File  name  (to  allow  both  USE  and  USE  FILE 
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commands  for  reactivating  Save  Files  —see  USE  description  in  Section 
3.  3. 3. 3).  If  the  name  already  exists  in  the  directory,  the  user  is  in- 
formed (3)  tnat  his  chosen  name  is  in  use  and  he  must  select  another. 

If  CHKSAV  returns  a zero  value,  the  name  is  new  and  acceptable 
and  will  have  been  added  to  the  directory  by  CHKSAV.  It  is  then  inserted 
into  SFNl(POT.),  which  will  be  used  as  the  first  name  of  the  Save  File  in 
any  forthcoming  transactions . A file  with  this  first  name  and  the  last  name 
SAVE  is  then  opened  for  writing.  The  first  block  or  record  of  this  file  will 
be  used  to  hold  a table  of  augmented  list  pointers,  similar  to  those  in  the 
in-core  table  of  pointers..  The  first  step  in  constructing  this  table  is  to 
write  a block  of  432  blank  (zero)  words.  This  is  accomplished  by  zeroing 

Vr  t 

out  common  buffer  6 and  writing  the  buffer  into  the  newly  opened  Save  File. 
The  Save  File  is  then  closed  until  the  user  deposits  something  into  it  via  a 
SAVE  command. 

TOTSAV(POT),  which  is  a component  of  the  POT  used  to  hold  the 
number  of  disk  records  in  the  Save  File  (address  portion)  and  to  hold  the 
Save  File's  list-table  index  (decrement),  is  set  to  the  initial  value  of  1 in 
both  cases.  SAVE  has  then  finished  executing  a SAVE  FILE  command  and 
returns  to  CLP. 

If  the  word  FILE  does  not  follow  a SAVE  command,  then  the  proce- 
dure takes  a totally  different  path. 

The  only  other  exceptional  case  occurs  when  the  word  ALL  is  given 
by  the  user  who  wishes  all  NAMED  lists  to  be  placed  in  his  Save  File.  When 
the  SAVE  procedure  finds  the  word  ALL  following  the  SAVE  command,  a 
flag  (TOT)  is  set  which  will  cause  the  list-copying  logic  to  be  repeated  for 
all  NAMEd  lists.  A list  name  which  is  found  in  the  list-pointer  table  by 
CHKNAM  will  return  a table  position  at  which  the  list  pointer  is  found.  But 
before  preceding  with  the  SAVE  operation,  the  SFNl(POT)  register  is  ex- 
amined to  make  sure  that  the  user  has  previously  issued  a SAVE  FILE  com- 
mand. If  this  slot  is  empty,  an  error  message  (4)  is  given  and  SAVE  re- 
turns to  CLP. 

If  a Save  File  name  exists,  the  list  table  index  for  the  Save  File 
is  extracted  from  the  decrement  of  TOTSAV(POT)  and  checked  to  see  if 
more  lists  can  be  SAVED  without  overflowing  the  in-core  pointer  table, 
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which  has  a limit  of  40  augmented  pointers  all  told  (including  current 
pointers  resulting  from  a search  etc.).  If  the  limit  has  been  reached  (a 
very  unlikely  event),  then  the  user  is  told  to  assign  a new  Save  Filename 
before  saving  any  more  lists. 

Next,  the  Save  File  is  opened  for  writing  and  the  Name  File  is 
opened  for  reading.  Common  buffer  0 (at  the  top  of  core)  is  used  as  an 
i/O  buffer  in  transferring  the  data. 

The  read-position  within  the  Name  File  and  the  length  of  the  list  to 
be  saved  are  obtained  from  the  augmented  pointer  whose  location  was  sup- 
plied by  CHKNAM.  The  write  position  within  the  Save  File  is  computed  using 
the  block  count  stored  in  the  address  of  TOTSAVfPOT ,) . This  position  is 
also  temporarily  stored  in  the  augmented  pointer  s disk-address  so  that 
the  pointer  relates  to  the  list  as  it  will  be  in  the  Save  File.  This  pointer  is 
then  written  into  the  first  record  of  the  Save  File  at  the  index  position  ex- 
tracted from  TOTSAV(POT.  ).  The  index  is  then  incremented  by  three  for 
the  next  pointer  deposit,  and  the  disk-address  of  the  pointer  is  re-set  to 
its  original.  Name  File  address. 

Finally,  all  the  data  having  been  established,  the  transfer  of  the 
list  from  the  Name  File  to  the  Save  File*  is  made  using  RDWAIT  and 
WRWAIT.  If  the  list  is  longer  than  a record  of  432  words,  repeated  reads 
and  writes  are  made  with  the  two  disk  addresses  being  incremented  each 
time  and  the  number  of  records  copied  accumulated  in  TOTSAV(POT.  ). 

When  the  entire  list  lias  been  copied,  the  ALL  flag,  TOT,  is  tested 
to  see  if  SAVE  is  done  or  must  go  back  for  another  possible  NAME  list.  In 
the  case  where  ALL  was  used,  no  table  position  of  the  list  pointer  would 
have  been  returned  by  CHKNAM,  but  the  ASCII  pointer  argument  will  be 
changed  by  CHKNAM  to  contain  the  address  of  the  top  of  the  table  of  list 
pointers.  This  address  will  be  used  by  ShVE  to  step  through  the  table  copy- 
ing all  NAME  lists. 

When  :ao  more  copying  remains  to  be  done,  the  latest  table  index  of 
the  Save  File  is  inserted  in  the  decrement  of  TOTSAV(POT.  ) for  use  in. the 
next  SAVE  operation.  At  this  point,  the  delimiter  found  by  NEXITM  in  ex- 
tracting the  list  name  is  examined.  If  it  is  not  a command  terminator  (slash), 

N 
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the  procedure  loops  back  to  call  NEXITIvl  again,  to  get  the  next  list  name 
which  the  user  is  saving. 

When  the  command  terminator  is  found,  the  Save  -Tile  and  Name 
File  are  closed  and  a zero  value  is  returned  to  CLP. 


B.  Procedures  Calling  SAVE: 
CLP  (via  CALLIT) 


C. 


D. 


Procedures  Called  By  SAVE: 

NEXITM,  CHKNAM,  OPEN,  BUFFER,  RD WAIT , WRWAlT, 
CLOSE,  CHKSAV,  TYPEIT 


COMMON  References: 

Name  j Meaning 


Interrogated? 


CD(POT.) 
,CFT(POT.) 
CET(POT.) 
SFNl(POT.) 
NFNl(POT. ) 
TOTSAV(POT  ) 
COMBF6(POT.) 
COMBFO(POT.) 


command  delimiter  table  address 

front  trim  table  address 

end  trim  table  address 

Save  File  name  one 

Name  File  name  one 

Save  File  address  and  table  Index 

Save  File  write  buffer 
Name/Save  i/O  transfer  buffer 


x 

x 

X 

X 

X 

X 

X 

X 


Changed? 


x 

x 


E.  Arguments: 

LIST:  ASCII  pointer  to  list  name 

or 

SFILE:ASCII  pointer  to  File  Name 

F.  Values: 

Code  = 0 (Zero) 


G.  Error  Codes: 


None 

H.  Messages: 

1.  "Yon  have  t provided  the  name  of  a NAMED  list."  ($nam3$) 

2. '  "The  word  FILE  may  not  be  used  as  the  name  of  a SAVED 

r File.  Please  use  another  name."  ($sav8$,  $nam8$) 

3.  "The  name  you  have  assigned  t6  your  SAVE  file  is  already  in 

use.  Please  repeat  your  SAVE  FILE  request  using  another 
name."  ($sav2$)  .'j 

4.  "You  have  not  provided  a name  for  your  SAVE  file."  ($sav3$) 

5.  "Your  current  SAVE  file  is  full.  You  must  assign  a new  name 

via  the  SAVE  FILE  cornmand  before  saving  any  more  lists." 
($sav4$)  . ^ C 
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I.  Length: 

521g  or  337j^  words 

J.  Source: 

SAVLIS  ALGOL 

K.  File  Reff  rences : 

~ NAM---  FILE 
user  SAVE 


ERIC 


322 


-307- 


3.  3.  3.2 


3. 3. 3. 2 CHKSAV 
Purpose 

To  check  the  Save  File  directory 
Description 

This  procedure  is  used  either  to  find  a file  name  in  the  Save  File 
directory,  or  to  add  a new  name  tc  it.  The  SAVE  procedure  described  in 
the  previous  section  calls  CHKSAV  to  add  new  file  names.  All  other  proce- 
dures using  CHKSAV  do  so  only  to  see  if  a file  already  exists  in  the  direc- 
tory. 

A.  Operation:  R = CHKSAV(FN) 

Whether  CHKSAV  is  being  called  by  SAVE  for  adding  a new  file 
name  or  from  some  other  procedure  can  be  determined  oy  comparing  the 
name  of  the  file  passed  in  the  argument  FN  to  the  name  stored  in  the  para- 
meter used  by  SAVE  for  holding  the  file  name.  This  parameter  is  accessible  to 
CHKSAV  since  it  is  compiled  with  SAVE  in  the  same  source  file. Calls  to  CHKSAV 
from  outside  this  source  file  will  mean  that  these  file  names  will  not  match. 

In  both  cases,  CHKSAV  looks  for  the  file  name  in  the  directory  of  Save  File 
names. 

If  a Saved  File  directory  exists,  it  is  opened  for  reading  . Each  word 
is  then  read  and  compared  to  the  name  passed  to  CHKSAV  in  FN,  If 
a match  is  found,  the  directory  file  position  of  this  name  is  returned  to  the 
calling  program. 

If  no  similar  name  is  found  in  the  directory,  the  directory  is  closed. 
The  determination  is  then  made  as  to  whether  the  call  to  CHKSAV  came  from 
SAVE  or  elsewhere.  If  it  came  from  elsewhere  (such  as  USE  in  RESLIS), 
then  CHKSAV  is  done  and  returns. 

When  the  call  is  from  SAVE,  the  name  is  to  be  added  to  the  direc- 
tory. The  directory  file  is  opened  for  writing,  the  single  word  containing 
the  name  is  entered  via  WRWAIT,  and  the  directory  file  is  closed. 

Before  returning  to  the  calling  program,  the  return  value  is  set  to 
zerc  (if  a name  was  added  to  the  directory)  or  to  a file  address  (if  a name 
was  found  already  in  it). 


O 
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B.  Procedures  Calling  CHKSAV: 

SAVE,  USE,  DROP,  LIST,  LISTSL 


C.  Procedures  Called  By  CHKSAV: 

FILCNT,  OPEN,  BUFFER,  RDWAIT,  WRWAIT,  CLOSE 

P.  COMMON  References: 

Name  Interrogated?  Changed? 

COMBF6(POT.)  directory  I/O  buffer  x 

E.  Arguments:  , 

FN:  BCD  coded  file  name  C' 

F.  Values: 

R = 0 (zero) 

R = file  address 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

1370  or  95  words 
o 10 

J.  Source: 

SAVLIS  ALGOL 

K.  File  References:  / 

SAVED  DIRECT 
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3.  3.  3.  3 USE 


Purpos  e 

To  use  a Save  File 
Des  c r iption 

! 

USE  provides  the  user  with  the  facility  for  reactivating  a Save  File 

previously  created.  It  is  called  by  CLP  in  response  to  the  command,  USE. 

/ 

A.  Operatic^:  Code  = USE(FN) 

l|SE  accepts  an  argument  containing  an  ASCII  pointer  to  the  rest  of 
the  command  line. 

A call  to  NEXITM  takes  the  next  word  from  the  command  line.  If 
none  is  found,  an  error  message  (1)  is  printed  and  USE  returns.  CHKNAM 
is  called  to  convert  the  word  to  BCD.  If  this  word  is  ADD,  the  name  of  a 
Save  File  should  be  found  next  on  the  command  line  and  the  mode  of  re- 
activation will  be  somewhat  different.  In  the  "add”  mode  the  Save  File 
specified  by  the  command  will  become  the  user’s  "current  Save  File”,  so 
that  NAMEd  lists  may  be  SAVEd  in  it,  but  the  list  pointers  already  in  the 
Save  File  will  not  be  read  into  core  and  made  active  NAMEd  lists.  When  the 
word  ADD  is  seen,  therefore,  USE  sets  an  indicator  and  goes  back  to  recall 
NEXITM  to  get  the  name  of  the  Save  File  to  be  activated.  If  the  word  is  FILE, 
it  is  ignored  (USE  and  USE  FILE  are  equiyalent)  and  NEXITM  is  called  again. 

In  either  mode,  when  a file  name  has  been  found  and  converted  to 
BCD,  it  is  passed  to  CHKSAV  to  see  if  it  is  actually  a Save  File  recorded  in 
the  directory.  If  CHKSAV  returns  a zero  valoe,  it  failed  to  find  the  file  name 
and  an  error  message  (1)  res u Its . If  the  file  name  is  found,  a call  to  FSTATE 
is  made  to  see  if  the  file  really  exists  on  the  disk,  and,  if  so,  to  obtain  its 
length.  If  the  file  is  not  on  disk,  another  error  message  (2)‘  is  printed  and  the 
name  of  the  file  is  deleted  from  the  directory  by  calling  CONDIR  (Section 
3.  3.  3.5. 

At  this  point,  if  the  ”addM  mode  indicator  is  on,  the  procedure  skips 
ahead  to  the  final  few  operations  of  activating  the  file.  If  the  regular  mode  is 
being  executed,  NFNl(POT.)  is  examined.  If  it  dobs  not  contain  a Name  File 
name,  one  is  constructed  using  the  same  numeric  last  three  characters  con- 
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tained  in  the  user's  Dump ‘File.  A call  to  DELFIL  is  made  to  delete  any 
Name  File  by  this  name  which  might  already  exist  from  a previous  Intrex 
s es  s ion. 

Now,  the  entire  Save  File  is  copied  into  the  new  Name  File  by  a 
small  routine  called,  MOVEIT  (Section  3.  3.  3.4).  The  o^th  of  the  new7 
Name  File  (in  records)  is  inserted  into  TO  TNA  M(PO  T . ) . This  length  is 
also  placed  in  T OTSA V( POT . ) and  the  name  of  the  Save  File  is  inserted 
into  SFNl(POTv)  to  make  the  Save  File  current  and  receptive  to  new 
N A ME  d 1 i s t s . 

s' 

To  complete  the  activation  of  the  lists  in  the  Save  File  ancLtiew 
Name  File,  the  list  table  in  the  first  record  of  the  Name  File  is/read  into 
the  in-core  list- poin'te  r table.  This  of  course,  destroys  any  list  pointers 
already  there,  including  both  NAMEd  lists  and  the  current  list  from  a 
search,  if  any.  (This  is  the  reason  for  the  ADD  option.)  With  no  current 
list,  \RL.  (C  1 ) is  made  0.  Once  the  pointers  are  read  into  core,  the 
Name  File  is  ^ sed  and  a verification  message  (3)  informs  the  user  what 
the  command  has  done.  This  message  ends  with  a list  of  the  NAMEd  lists 
just  activated,  produced  by  calling  the  LIST  procedure  with  an  argument  of 
0 (zero)  (Section  3. 3.  2. 6).  / ' " 

In  the  "add"  mode,  TOTSAV(POT .)  and  SFNl(POT.)  are  filled  as 

• ^ 

in  the  regular  mode,  but  a somewhat  different  message(4)  is  printed  to 
verify  the  execution  of  the  user's  command.  The  list  of  NAMEd  lists  which, 
completes  the  message  is  produced  by  calling  LIST  with  an  argument  con- 
sisting of  a pointer  to  the  name  of  the  Save  File.  This  prompts  LIST  to  dis- 

v. 

play  the  names  of  the  lists  in  t^at  re -activated  Save  File. 

Finally,  in  both  modes  the  index  of  the  Save  File  ’ s list- pointe r table 
is  set  in  the  decrement  of  TOTSA V( POT  . ) , using  the  count  of  lists  just  pro- 
duced by  the  call  to  the  LIST  routine.  In  all  cases  USE  returns  a value  of 
zero  to  CLP. 

\ % 

B.  Procedures  Calling  USE: 

CLP  (via  CALLIT) 

C.  Procedures  Called  By  USE: 

NEXITM,  CHKNAM,  CALLIT(CHKSAV,  MOVEIT,  CONDIR), 

ESTATE,  DELFIL,  OPEN,  BUFFER,  RDWAIT,  CLOSE, 

TYPEIT,  LIST 
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D.  COMMON  References: 


Name 


Meaning 


Inte  rrogated?  Changed ? 


NFN  1 ( POT  . ) 

DFN  l(POT . ) 
SFNl(POT  .) 
COMBF6(POT  .) 


Name  File  name  one 
Dump  File  name  one 
Save  File  name  one 
Save  File  directory 
read  buffer 


x 

X 


X 


X 


E.  Arguments: 

FN:  ASCII  pointer  to  file  name 


F.  Values: 

Code  = 0 (zero) 


Gr.  Error  Codes: 
None 


H. 


r 


N 


r 


Messages: 

1 "You  have  not  provided  the  name  of  a SAVE  file.*1  ($USER1  $) 

;V'  -I  ■ \ 

2.  , "SFILE  is  not  found  to  be  stored  on  disk  and  is  being  deleted 

from  the  SAVE  file  directory."  ($SAV7$) 

3.  "SFILE1  has  become  your  current  NAMEd  list  file  and  SAVE 

file.  The  list  names  in  this  file  may  now  be  restored  to  active 
status  by  typing  their  names,  which  are:"  ($USEM1$) 

(List  of  List— names) 

4.  SFILE1  has  become  your  current  SAVE  file  and  will' accept 
SAVEd  lists.  Your  current  NAMEd,  lists,  if  any,  are  re-, 
.tained  and  may  now  be  SAVEd,  if  and  when  desired."  ($USEM2$) 

(List  of  List-names). 

NOTES: 

1.  The  file  name  supplied  by  the  user  is  'iven  here 


I.  Length: 

7Z4g  or  468 10 

f 

J.  Source: 

RES  LIS  ALGOL 

K.  File  References: 

NAM FILE 

\ 

\ 


327 


3. 3. 3. 4 


-312- 


3,  3. 3.4  MO  VEIT 
Purpose 

To  copy  a disk  file 
De  s c r iption 

A.  Operation:  MOVEIT(INl,  IN2,  OUT1,  OUT2) 

This  procedure  accepts  as  ^*®uments  the  names  of  two  disk  files. 
The  first  two  names  are  those  of  a feCto  be  copied,  such  as  a Save  File 
to  be  reactivated  as  a Name  File.  The  second  two  names  are  those  to  be 
given  to  the  new  file.  The  files  are  opened  for  reading  and  writing,  respectively, 
with  Common  Buffer  6 being  used  for  buffering  the  writing  of  the  new  file  and 
Common  Buffer  2 used  for  transferring  the  data  in  and  out  of  c.'Te. 

Both  files  are  closed  upon  completion  of  the  transfer. 

B.  Procedures  Calling  MOVEIT: 

USE 

C.  Procedures  Called  By  MOVEIT: 

OPEN,  BUFFER,  RDWAIT,  WRWAIT,  CLOSE 


D.  COMMON  References: 
Name 

COMBFZ(POT.) 

COMBF6(POT.) 


Meaning 

Core-transfer  buffer 
Write  buffer 


Inte  rrogated^  Changed? 


x 

x 


E.  Arguments: 

INI,  IN2:  Input  File  names 

OUT1,  OUT2:  Output  Filenames 

F.  Values: 

Nv^ne 


O . 


Error  Codes  : 
/ None 

L 


H.  /He's  sages: 
/ None 


O 
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I.  Length; 

Approx.  1 00g  or  641Qwords 

J.  Source; 

SAVLIS  ALGOL 

K . File  R e fere  nc  e s : 

NAM FILE 

user  SAVE 


O 
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ERLC 


3. 3.  3.  5 CONDIR 
Purpose 

To  condense  the  Save  File  Directory 
Description 

A.  Operation:  CONDIR(FLQC) 

This  procedure  is  used  to  drop  file  names  from  the  Save  File 
directory  whose  position  is  given  in  the  argument  of  the  call.  The  proce- 
dure would  normally  be  called  from  the  DROP  routine  in  response  to  a 
DROP  FILE  command.  It  might  also  be  called  from  the  previously  de- 
scribed USE  procedure,  if  the  file  to  be  USEd  was  not  found  on  the  disk. 

CONDIR  first  calls  FILCNT  to  see  if  a Saved  File  directory 
exists.  If  not,  the  procedure  simply  returns  immediately  to  the  calling 
program.  Otherwise,  the  length  of  the  file  is  established  and  used  to  con- 
trol a loop  which  reads  one  word  of  the  file  at  a time.  The  directory  is 
opened  for  both  reading  arid  writing.  Every  word  except  the  one  found  in 
the  argument  position  is  written  back  into  the  file.  When  all  reading  and 
writing  is  finished,  the  new  file  is  truncated  to  one  word  less  than  its  orig- 
inal length  by  a call  to  the  CTSS  routine,  TRFILE  (Section  3.5.  1.8). 

Finally,  the  directory  file  is  closed  and  CONDIR  returns  to  the 
calling  routine. 

B.  Procedures  Calling  CONDIR: 

DROP,  USE 

C.  Procedures  Called  By  CONDIR: 

FILCNT,  OPEN,  BUFFER,  RDWAIT , WRWAIT, 

TRFILE,  CLOSE 

D.  COMMON  References: 

Name  Meaning 

COMJ3F6(FOT.)  I/O  Buffer 

E.  Arguments: 

FI  OC: 


integer  (file  index) 
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F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

) , Length: 

113g  or  75^Q  words 

J.  Source: 

SAVLIS  ALGOL 

K.  File  References: 

SAVED  DIRECT 


\ 


331 


3.  3. 3. 6 


-316- 


3. 3. 3. 6 LISTSL 


Purpos e 

To  list  names  of  lists  in  a Save  File 
Description 

A.  Operation:  CNT  = LISTSL(SLN) 

This  procedure  gis  called  by  LIST  when  the  user  Hows  the  LIST 
mmand  with  the  name  of  a Save  File  whose  SAVEd  list  names  he  wants 
displayed* 

LISTSL  accepts  an  argument  containing  a BCD-Coded  Save  File 
name*  A c A to  FILCNT  on  his  file  name  is  made  to  determine  if  the  file 
actually  exists  on  the  disk*  If  a negative  return  from  FILCNT  shows  that 
no  such  file  exists,  an  error  message  is  ir  i>ued  (1)  and  the  file  name  is  de- 
leted from  the  directory  (if  it  exists  there)  by  a call  to  CONDIR  (described 
earlier). 

If  the  file  is  found  on  the  disk,  TYPEIT  is  used  to  produce  an  intro- 
ductory message  (2).  Then  the  file  is  opened  for  reading,  buffered  , and  the 
names  in  the  table  in  the  first  record  are  read,  one  word  at  a time*  Each 
list  name  is  printed  by  TYPEIT  after  conversion  to  ASCII  by  BCDASC*  An 
empty  word  signals  the  end  of  the  list-pointer  table  and  the  loop  is  termina- 
ted* The  names  are  counted  as  they  are  read  and  printed*  This  count  is 
tested  for  the  possibility  of  zero  lists  in  the  table,  iri\  which  case  the  user  is 
given  the  word  "none”  for  a result. 

In  all  cases  the  count  is  returned  as  a value  to  LIST  which  uses  it 
to  add  a summary  message  (see  LIST  in  Section  3 * 3 . 2 . 6. 

B.  Procedures  Calling  LISTSL: 

LIST 

C.  Procedures  Called  By  LISTSL: 

FILCNT,  TYPEIT,  BCDASC, 

CONDIR.,  CHKSAV 

D*  COME  ON  References: 

Name  Meaning 

CQMBF6(POT.)  i/O  buffer 


RDWAIT,  CLOSE,  LOCMES, 
Interrogated  Changed? 
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E . Arguments: 

SEN:  BCD  file  name 

F . Values: 

CNT=count  of  List  names  in  Save  File 

G.  Error  Codes: 

None 

H.  Messages: 

1.  MSFILE^  is  not  found  to  be  stored  r disk  and  is  being 

deleted  from  the  SAVE  File  direc  r%u  ($SAV?$) 

2.  "Lists  in  file  SFILE1"  ($SAV6$) 

(List  of  List  Names) 

NOTES: 

1.  The  name  of  the  file  specified  by  the  user  is  given  here. 

I.  Length: 

141^  or  words 

J.  Source: 

SAVLIS  ALGOL 

K.  File  References: 

user  . jAVE 
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3. 3. 3.  7 LISFIL 

Purpose 

To  list  Save  File  names 

A.  Operation:  LISFIL(  ) 

This  procedure  is  called  by  the  L'IST  procedure  (see  Section 
3.  3. 2.  6)  when  a LIST  FILE  command  is  given  by  a user  desiring  to  see 
what  Save  Files  are  currently  in  the  Save  File  directory.  LISFIL  first 
checks  to  see  if  a directory  exists  by  calling  the  procedure  FILCNT  (Section 

3.4.3.  1).  If  FILCNT  returns  a negative  value,  no  directory  exists  and  the 
user  is  informed  that  no  Save  Files  are  currently  on  the  disk(l). 

A positive  value  returned  from  FILCNT  will  be  the  length  of  the 
directory,  which  is  then  used  to  cont*ul  a loop  in  which  tile  directory  en- 
tries are  read  and  listed  one-by-one.  RDWAIT  is  used  to  read  eachdirec- 
t'-ry  word,  while  BCDASC  converts  the  file  name  from  BCD  te  ASCII  so 
that  TYPEIT  can  display  it  to  the  user. 

When  all  the  file  names  in  the  directory  have  thus  been  listed,  an- 
other TYPEIT  call  is  made  to  give  the  user  a summary  message  (1)  as  to 
the  number  of  Save  Files  currently  held. 

B.  Procedures  Calling  LISFIL: 

LIST 

C.  Procedures  Called  By  LISFIL: 

FILCNT,  OPEN,  RDWAIT,  TYPEIT,  BCDASC,  CLOSL 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

COMBF6(POT.)  i/O  buffer  x 

E.  Arguments: 

None 

F.  Values: 

None 
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G.  Error  Codes: 

None 

H.  Messages: 

1.  SAVE  Files  currently  being  held  on  File/'  ( $S A V 5 $ ) 

NOTES: 

l.  The  number  of  file  names  listed  by  the  LISFIL  procedure 
is  given  here. 

I.  Length: 

i 

102g  or  66^  words 

J.  Source: 

SAVLIS  ALGOL 

K#  File  References: 

SAVED  DIRECT 


X 
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3,3.4  Boolean  Operations  / 

3,3.4.  1 AND. 

Purgos  e 

To  control  Boolean  commands 
Des  c ription 

The  process  of  performing  a Boolean  intersection  on  two  lists  of 
references  produces  a resulting  list  containing  only  those  references  which 
share  certain  common  specifications  or  attributes  (namely,  document  num~ 
ber  and/or  subject  term  number).  When  such  matching  criteria  are  found, 
one  or  both  of  the  similar  references  is  taken  into  the  new  list  and  the  com- 
parison continues.  This  process  generally  means  that  the  resulting  list 
will  be  smaller  than  the  length  of  the  shorter  of  the  two  original  lists. 

If  the  user  wishes  to  intersect  two  lists  on  their  document  numbers 
only,  he  issues  the  command,  "LISTl,  AND  BIST2"  where  UST1  and  BLST2 
are  names  he  previously  assigned  via  the  NAME  command.  (BIST  1 may  be 
omitted  in  which  case  the  current  list  is  taken  as  BIST  1).  The  procedure 
AND.,  called  by  CBP  in  processing  the  AND  command,  will  read  the  second 
list  name,  find  it  in  the  list  pointer  table,  and  use  its  pointer  and  the  cur- 
rent list  pointer  as  arguments  to  the  main  Boolean  procedure  ANDER  (de- 
scribed in  Section  3 . 3 . 4.  5 ) . 

Since  the  other  Boolean  commands  and  their  corresponding  proce- 
dures all  necessitate  basically  the  same  preparations,  subroutine  calls,  mes- 

^ 1 

sage  construction,  etc.,  duplicate  coding  was  obviated  by  making  AND.  a 
general  purpose  set  up  routine  used  also  by  WITH.,  OR.,  and  NOT. 

A.  Operation  Code  = AND.  (SPA) 

The  POT  ^location  MODEG(POT.)  contains!  an  ,?anding  mode"  in- 
dicator (normally  set  by  CBP)  which  is  used  by  the  procedure  ANDER  to  de- 

i 

te^mine  what  course  of  action  it  should  follow  while  compari  g references. 
This  mode  is  extracted  from  the  POT  upc.i  entering  AND.  to  be  used  as  an 
argument  in  the  ensuing  caii  to  ANDER.  It  will  have  been  set  to  3 (docu- 

BP  in  anticipation  o^  an  AND  command. 


ment  number  intersection  o«?-D  by  CJJ 


333 


•321- 


3.3.*. 1 


Next,  the  ueiimiters  and  trim  table  pointers  are  extracted  fr  rr: 
the  POT  and  set.  op  tor  disecting  the  command  line  with  calls  to  NZXITM. 
Flags  i*->ed  for  indicating  the  use  of  AND.  by  the  NOT  command  or  the  C R 
command  are  set  to  false,  and  the  argument  (the  pointer  to  the  remainder 
of  the  command  line)  is  saved  in  a local  variable. 

The  preceding  operations  are  pertinent  only  to  the  AND  command, 
The  steps  described  below  are  used  also  by  WITH,  OR,  and  NOT  commands. 

The  CTSS  blip  feature  is  used  during  all  Boolean  operations  as  well 
as  during  searching.  SETBLP  is  called  specifying  the  blip  character  to  be 
that  contained  in  BLIP  (POT.)  and  setting  a time  period  of  one  second  be- 
tween blips  . 

NEXITM  is  used  to  obtain  the  next  word  on  the  command  line, 
assumed  to  be  a NAMEd  list.  If  NEXITM  returns  an  error  code,  a 
message  (1)  is  printed  telling  the  user  he  has  not  Iven  a list  name. 

The  ASCII  word  returned  by  NEXITM  i r now  converted  to 

X 

BCD  by  the  basic  conversion  procedure  CTS1T6  -see  Section  3 .4.2.8) 
and  tested  to  see  if  it  is  the  word  NOT.  If  it  is^  NOT,  then  the  user  has 
issued  an  AND  NOT  command,  which  is  quite  different,  of  course,  from 
an  AND  command.  In  this  case,  NOT.  is  called  by  AND.  (see  description 
of  NOT.  in  Section  3. 3. 4. 4),  which  forces  another  cycle  through  AND.  with 
different  conditions.  In  this  case  two  exits  will  be  taken,  first  from  NO  I. 
and  then  from  AND.  to  return  to  CLP.  This  bears  some  resemblance  to 
the  exit  from  a recursive  procedure. 

Any  word  other  than  NOT  is  passed  to  the  procedure  CHKNAM 
(see  Section  3.  3.2,  5)  to  see  if  the  word  is  the  name  of  a NAMEd  list.  If 
CHKNAM  returns  a negative  value,  the  name  was  not  found  in  the  list  table 
and  an  error  message  to  this  effect  (2)  is  displayed  to  the  user. 

Next,  RRL.(CL.)  is  examined  to  make  sure  there  is  a current  list 
on  which  to  perform  the  required  Boolean  operation.  If  it  is  empty,  a mes- 
sage is  typed  (3)  stating  that  the  user  has  no  current  list. 

Now  the  Drocedure  ANDER  is  called  with  the  pointer  to  the  NAMEd 
list  (returned  by  CHKNAM),  the  current  list  pointer,  the  hnding  mode,  and 
a zero  (indicating  "no  attribute  screening'1)  passed  as  arguments.  The 
scanning  of  the  two  reference  lists,  as  specified  by  the  anding  mode,  takes 
place  in  ANDER.  The  resulting  list  is  written  into  the  Dump  File  and  a 
pointer  to  its  augmented  (three-part)  pointer  is  returned  to  AND.  . 
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If  the  value  returned  is  not  a pointer  but  an  error  code,  AND. 
immediately  aborts  and  returns  to  CLP.  No  error  messag-e  is  given  by 
AND.  here  because  it  will  have  been  given  by  the  routine  causing  the 
error,  usually  TABENT  (Section  3. 3.  2. 3)  complaining  that  the  list  table 
is  full.  • 

If  the  value  is  a zero,  the  Boolean  comparison  produced  no  sat- 
isfying references  so  the  following  pointer  preparations  are^skipped. 

The  pointer  returned  by  a successful  call  to  ANDER  is  made  the 
current  list  pointer  by  inserting  it  into  RRL. (CL.).  First,  however,  the 
old  list  pointer  in  this  component  of  CL  must  be  deleted  by  calling  DRPPTR 

t i 

(Section  3.  2.4.8),  unless  that  pointer  relates  to  a NAMEd  list,  which  must 
be  retained. 

Having  completed  its  task,  AND.  must  then  tell  the  user  about  the 
result.  A complex  call  to  TYPEIT  is  prepared,  one  of  whose  arguments  is 
determined  by  the  type  of  Boolean  command  being  performed  as  indicated 
by  the  anding  mode.  The  result  message  (4)  will  specify  that  ANDing, 
WITHing,  ORing,  or  NOTing  has  taken  place  according  to  whether  the  mode 
is  3,  0,  4,  or  less  than  0,  respectively.  The  message  will  also  state  the  num 
ber  of  documents  involved-in  the^re suiting  list  (from  the  decrement  of  RRL.) 

If  that  number  is  zero,  the  user  is  told  (5)  that  his  most  recent  list  is  being 

\ ii 

retained  (the  contents  of  RRL.  have  not  changed). 

Before  assuming  that  its  job  is  completed,  AND. , examines  the  de- 
limiter  found  by  NEXITM  to  determine  if  the  command  terminator  has  been 

U . \ 

reached.  If  not,  NEXITM  is  called  again  and  its  returned  word  converted 
to  BCD.  This  word  is  compared  to  the  words  AND,  C^vR,  NOT,  and  WITH  in 
case  the  user  is  stringing  Boolean  commands  together'.  If  the  word  is  any 
of  these,  the  proper  corresponding  mode  is  set  and  AND.  loops  back  to  the 
first  call  to  NEXITM  to  read  the  name  of  the  next  list  on  which  to  operate. 

If  the  word  is  none  of  these,  AND.  goes  back  to  the  place  where 
CHKNAM  is  called  to  see  if  the  user  is  chaining  lists  together  for  the  same 
Boolean  operation  (e.g.  OR  LI  L2  L3). 

Once  a command  terminator  is  found  the  blip  feature  is  turned  off 
by  calling  SETBLP  with  zero  arguments,  and  AND.,  prepares  to  exit. 
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Here,  the  OR  command  flag  (set  by  OR.  ) and  the  NOT  command  flag  (set 
by  NOT.)  are  tested.  If  eitfier  flag  is  on,  transfer  is  made  to  the  exit 
location  of  the  corresponding  routine  and,  hence,  back  to  CLP. 

Jf  bothfflags  are  off,  the  argument  pointer  to  the  command  line  is 
updated  and  AND.  returns  a zero  value  to  the  calling  routine. 

B.  Procedures  Calling  AND.: 

CLP,  WITH,  (both  via  CALLIT) 


C. 


D. 


E. 


f; 


Procedures  Called  By  AND.: 

SETBLP/NEXITM,  CTSIT6,  CHKNAMp  ANDER,  DRPPTR, 
TYPE  IT 

COMMON  References: 


Name 

Meaning 

Inter  rc 

MODEG(POT.) 

anding  mode 

X 

CD(POT .) 

command  delimiters 

X 

CET(POT.) 

front-trim  table 

_/  x 
X 

CETfPOT.) 

end-trim  table 

BLIP(POT.) 

blip  character 

X 

RRL.(CL«) 

resultant  ref.  list  ptr. 

Arguments: 

SPA:  ASCII  pointer 

Values: 

Code  = 0 (zero) 

' - - - — 

Changed 


G.  Error  Codes: 

None 

H.  Messages: 


1.  "You  have  not  provided  the  name  of  a NAMEd  list"  ($nam3$) 

2.  "xlist  * has  not  been  NAMEd."  ($nam3$) 

3.  "You  have  no  curre/it  list  upon  which  to  perform  Boolean 

operations."  ($anerrl$) 


O 
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4.  "The  list  resulting  from  AN  Ding 1  2 3 4 the  current  active  list  with 

lname  ^ contains  N * documents."  ($anorl$,  $anorZ$, 
$anor4$,  $anor4a$,  /op3a/  or/op3b/) 

5.  "Your  last  active  lis$  has'  been  retained."  ($fso6$) 

NOTES: 

1.  The  user-supplied  word  is  given  here. 

2.  This  may  be  WITHing  ($anorO$),  ORing  ($anor3$)  or  NCpTing 

($airor5$)  if  the  anding  mode  so  dictates.  j 

3.  The  us  er- supplied  list  nam£<*is  given  here, 

4.  The  number  of  documents  in  the  result’  ig  life t is  given  here. 

I.  Length: 

351g  or  2331q 

J.  Source: 

ANDOR  ALGOL, 

K.  File  References: 

None 


O 
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3, 3.4,  2 WITH. 

Purpose 

To  control  the  WITH  (strong  AND)  command 


Description 

If . the  user  wants  po  intersect  subject  term4  numbers  as  well  as 
document  numbers,  then  l\e  types,  "EISTi  WITH  LIST2’\  (Here  again 
LIST1  may  be  taken  as  the  current  list.)  If  HIST  1 contains  the  refer- 
ence list  for  the  word  ZINC  and  LIST2  contains  the  reference  list  for  the 
word  OXIDE,  thenthe  result  of  the  above  command  would  be  the  same  as 

<4 

if  the  user  had  done  a subject  search  on  thp-^phrase  ZINC  OXIDE. 

The  same  comparison  procedure  (ANDER,  Section  3 . 3 . 4 . 5 ) is 
used  by  all  the  Boolean  operations-  A mode  argument  to  ANDER  con- 
trols the  type  of  action  taken  during  and  after  comparison  of  the  lists. The 
subject- search  logic  and  the  WITH  command  both  call  ANDER  with  a mode 
of  0,  which  causes  term  numbers  to  be  used  in  the  intersection  process. 
^Combination  subject/title  s ea  rches  , subject/author  searches,  subject/ 
author  searches  and  the  AND  command  call  ANDER  with  modes  of  1,  2 and 
3 respectively,  which  prevent  ANDER  from  considering  term  numbers  .The 
resulting  list  from  this  kind  of  intersection  is  usually  larger  than  that  pro- 

r ' • 

duced  by  the  more  restrictive  WITH  command  intersection. 

A.  Operation:  Code  = WITH.  (SPW) 

WITH,  is  called  by  the  Command  Language  Processor  (CLP)  with 
an  argument  containing  a pointer  to  the  rest  of  the  command  line . The  proce- 
dures itself  performs  only  two  steps, since'most  of  the  processing  is  actually 
.-done  by  AND.  and  ANDER. 

First,  WITH,  inserts  a mode  of  zero  into  the  MODEfG  component  of 
POT.,  which  will  cause  ANDER  to  consider  term  numbers  in  the  more  de- 
manding type  of  intersection. 

Then  WITH,  calls  AND.,  passing  along  the  same  commmand  line 
pointer  as  its  argument.  AND.  will,  of  course,  return  to  WITH,  in  the  nor- 
mal procedural  manner,  and  hence  back  to  CLP.  with  the  same  zero  value 

which  is  standard  for  command  routines. 

© 


O 
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B.  Procedures  Calling  WITH.  : 

CLP  (via  CALLIT) 

C.  Procedures  Called  By  WITH-  : 

AND.  , , ' — 

Inte  r rogated  ? 

0 

E.  Arguments: 

SPW:  ASCII  pointer 

F.  Values: 

Code  = 0 (zero) 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

1780r  1510 

J.  Source: 

ANDOR  ALGOL 

K.  File  References: 

None 


D.  COMMON  References: 

Name  \ Meaning 

MODEG(POT .)  / anding  mode 


Directly  from  WITH,  for  indirect  results,  see  AND. 


O 

ERIC 


Chang  ed  ? 
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3, 3,4,  3 OR, 

Purpose 

To  control  the  OR  command 
Description 

A Boolean  OR  on  two  lists  of  references  (LI  OR  L2)  produces 
a resulting  list  containing  references  found  in  either  or  both  of  the  two 
lists.  It  merges  the  two  lists  into  one,  maintaining  the  descending  order 
of  document  numbers  and  ascending  order  of  term  numbers  within  each 
document.  Redundant  references  are  discarded  so  that  it  is  possible  that 
the  length  of  the  resulting  list  will  be  less  than  the  sum  of  the  lengths  of 
the  two  original  lists*  The  OR  procedure  us es  AND.  logic  and  causes  a, 
call  to  ANDER  with  a mode  argument  of  4 which  sets  the  ANDER  switch- 
ing mechanism  to  merge  rather  than  exclude.  The  OR  command  would 
generally  be  used  to  combine  the  lists  of  search  words  or  phrases  having 
similar  meanings  so  that  all  the  references  pertaining  to  a given  area 
will  be  included;,  in  a group  which  would  be  unattainable  by  ordinary  search 
techniques. 

A0  Operation:  Code  - OR.(SPQ) 

; 

OR.  is  called  by  CLP  and  accepts  an  arguijnent  containing  a pointer 
to  the  rest  of  the  command  line.  This  pointer  is  placed  in  a local  variable 
which  is  common  to  the  AND.  procedure.  Then  a similarly  common  variable 
used  for  holding  the  anding  mode  is  set  to  4,  the  number  which  indicates 
ORing  to  both  AND.  and  ANDER.  Since  this  mode  may  be  changed  later  if 
AND.  finds  subsequent  Boolean  commands  on  the  same  line,  a flag  is  set  to 
serve  as  a reminder  that  the  final  exit  back  to  CLP  must  come  from  OR*  . 
This  flag  will  be  examined  at  the  end  of  AND.  and,  if  set,  will  cause  AND, 
to  branch  back  to  the  exit  point  of  OR. 

After  setting  the  "OR"  flag,  transfer  is  made  from  OR,  to  AND.  at 
the  point  in  AND,  where  the  blip  feature  is  activated  and  the  command  line 
is  interrogated  by  NEXITM  (see  earlier  description  of  AND.)  AND,  then 
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(using  ANDER)  performs  the  ORing  operation.  When  it  finishes  and  returns 
to  OR.  , the  advanced  command  line  pointer  is  deposited  into  the  argument 
address  and  a zero  value  is  returned  to  CLP. 

B.  Procedures  Calling  OR.: 

CLP  (via  CALLIT) 

C.  Procedures  Called  By  OR-: 

None*  ✓ } 

D.  COMMON  References: 

None 


E.  Arguments: 

SPO:  ASCII  pointer 

F0  Values: 

Code  - 0 (zero) 

Gc  Error  Codes: 

None 

H.  Messages: 

None* 

I.  Length: 

318  or  2510 

J.  Source:  * 

ANDOR  ALGOL 

K.  File  References : 

None 


\ 


Directly  from  OR,  For  indirect  result?? , see  AND 
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Purpose  < 

To  control  the  NOT  command 
Description 

The  Intrex  command,  L1ST1  NOT  LIST 2 , means  "produce  a list  . 
which  contains  only  those  references  from  LIST  1 which  are  not  also  in 
LIST2".  The  resulting  list  length  must  be  less  than  or  equal  to  LIST1. 

Like  Intersection,  Negation  may  be  performed  either  with  or  with- 
out regard  to  term  numbers.  If  only  the  word  NOT  is  used  between  list 
names,  then  term  numbers  will  be  considered  and  only  those  references 
having  the  savie  term  and  document  numbers  as  the  LIST2  reference  will 
be  discarded  (ANDJER  mode  = -1).  If  the  two  words  AND  NOT  appear  be- 
tween list  names,  then  any  reference  of  LIST1  having  the  same  document 
number  as  a LIST2  reference  will  be  dropped  (ANDER  mode  * -3).  Thus, 
the  result  of 

LIST  1 NOT  LIST 2 

will,  in  general,  contain  more  references  than 
LIST  1 AND  NOT,  LIST 2 


since  there  will  usually  be  fewer  discarded  references. 

A.  Operation:  Code  = NOT.  (SPN) 

NOT.  is  called  by  CLP  or  AND.  with  an  argument  containing  a 

pointer  to  the  rest  of  the  command  line.  This  pointer  is  saved  in  a local 
variable  for  use  by  AND.  as  described  above  under  OR.  . 

Since  there  are  two  kinds  of  NOT  operations  and,  therefore,  two 
modes  which  might  be  passed  to  AND.  and  from  there  to  ANeIeR,  NOT. 
must  examine  the  mode  indicator  in  MODEG(POT.)  to  determine  which  NOT 
mode  is  to  be  used.  A zero  in  this  component  means  that  the  word  AND  has 
already  been  encountered  on  the  command  line  and  the  local  mode  is  then  set 
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A three  (3)  in  the  mode  siot  means  that  NOT,  was  called  directly 
from  CLP  (no  AND),  so  the  mode  in  the  local  parameter  is  set  to  -3.  A 
flag  is  set  to  indicate  that  return  must  be  made  via  NOT.  and  the  control 
branches  to  AND.  as  described  above  for  OR.  . 

AND.  and  ANDER  then  perform  the  actual  processing  of  the  com- 
mand. At  the  end  of  AND.  , the  NOT  flag  sends  control  back  to  NOT.  which 
replaces  the  old  argument  command  pointer  with  the  now  advanced  local 
version  and  returns  a zero  value  to  the  calling  program. 

B.  Procedures  Calling  NOT. 

AND,  CLP  (via  CALLIT) 

C.  Procedures  Called  By  NOT. 

None  * 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

MODEG(POT)’  anding  mode  x 

E.  Arguments: 

APN:  ASCII  pointer 

F.  Values: 

Code  = 0 (zero) 

G.  Error  Codes: 

None 

H.  Messages: 

None* 

I.  Length:  * 

378  or  3110 

J.  Source: 

ANDOR  ALGOL 

K.  File  References: 

None 


Directly  from  NOT.  . For  indirect  results,  see  AND. 
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3,  3. 4,  5 ANDER.  GET  BUF 
^Purpos  e 

To  perform  Boolean  manipulations  on  two  lists 
Peso  ription 

ANDER  is  a very  complex,  general  purpose  Boolean  operation  pro- 
cedure called  by  the  search  module  (when  multi-word  search  terms  must 
be  intersected)  or  by  the  Boolean  commend  procedures  described  in  Sec- 
tions 3.3.4.  1-4.  ANDER  takes  two  reference  lists  and  compares  their 
document  numbers  (and  sometimes  term  numbers).  A new  list  is  pro- 
duced from  the  two  input  lists,  the  contents  of  which  depends  upon  the 
Boolean  ope  ration  being  performed.  The  new  list  is  deposited  into  the  user 's 
Dump  File  and  a new  augmented  list  pointer  is  added  to  the  list  pointer  table. 

A.  Operation:  NP  = ANDER(P1,  P2 , MAND,S) 

ANDER  accepts  four  arguments  passed  from  the  calling  routine.  The 
first  and  second  are  pointers  to  augmented  list  pointers.  These  in  turn  point 
to  two  reference  lists  which  are  to  be  processed  in  some  Boolean  operation. 
The  third  argument  contains  a mode  code  which  determines  which  Boolean 
operation  is  to  be  performed.  The  fourth  argument  is  a flag  stating  whether 
or  not  attribute  screening  is  necessary  on  the  references  before  they  are 
compared  by  ANDER. 

The  first  step  taken  by  ANDER  is  to  extract  from  the  two  augmented 
list  pointers  (and  place  into  local  variables , BLK1  and  BLK2)  the  block 
(common  buffer)  numbers  employed-tx>Tiold  the  core -stored  portion,  if  any, 
of  the  list.  These  are  used  later  by  the  procedure  GETLIS  (Section  3.3.4. 6) 
to  select  the  buffers  to  be  used*f73r  reading. 

Then,  counters  and  indices  are  reset  to  zero,  and  the  current  disk 
block  counts  of  both  the  Dump  File  and  the  Name  File  are  obtained  from  the 
POT. 

The  flags  used  by  ANDER  are  reset  and  the  list  pointed  to  by  argu- 
ment pointer  one  is  prepared  for  processing.  This  is  done  by  c ailing  GET EIS 
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with  this  pointer  in  argument  one.  CETJLIS  will  read  the  first  block  of 

list  one  into  a common  buffer  determined  by  the  last  two  arguments,  BLK1 

\ 

and  BLKZ,  and  fill  the  several  other  argument  words  of  the  call  with  data 
pertaining  to  the  address,  type,,  file  names,  etc*  of  the  list.  \ 

One  of  the  items  of  data  supplied  by  GETLIS  is  the  number  of  disk- 
stored  references  left  to  be  read.  If  this  number  is  zero,  then  the  end-of- 
file  flag  (EOF1)  is  set  to  indicate  that  no  further  reading  of  list-one  is 
necessary. 

Preparation  for  list-oiie  examination  is  completed  by  setting  the 
core  index  of  list-one  (1X1)  to  zero. 

Next,  the  second  argument  pointer  is  examined.  If  it  is  a zero, 
this  indicates  that  ANDER  is  being  called  by  the  procedure  NAME  (Section 
3.3.Z.Z)  for  the  sole  purpos e of  writing  a list  into  the  Name  Pile. 

This  simpler  use  of  ANDER  is  controlled  by  setting  a flag  called  FAKE, 
which  prevents  the  reference-comparison  apparatus  from  being  used. 

When  the  second  pointer  is  not  zero,  the  second  list  is  prepared  as 
was  the  first-by  calling  GETLIS  with  th;  r as  the  first  argument- -but 

this  time  the  last  two  arguments  are  3LKZ,  BLK1).  Again,  if  the 

number  of  disk-stored  references  rexi.  0 to  be  processed  after  LIS 

is  zero,  the  end-of-file  flag  (EOFZ)  is  set. — 

Now  the  name  of  the  output  file,  into  which  will  be  written  the  re- 
sulting list,  is  selected.  If  the  FAKE  flag  is  not  set,  the  output  file  name 
parameter  is  set  to  the  name  of  the  Dump  File  (found  in  the  POT).  Other- 
wise, the  output  file  is  the  Name  File  and  all  the  parameters  relating  to 
list-two  are  set  to  zero. 

In  either  case,  the  core-address  index  of  list-two  (IXZ)  and  the  out- 
put buffer  index  (OX)  are  reset  to  zero,  completing  the  preparations  for 
comparing  the  references  of  the  two  lists. 

GETEIS  will  normally  put  the  first  blocks  of  references  from  the 
lists  into  common  buffers  one  and  three.  The  next  block  of  references  to 
be  read  (from  one  list  or  the  other)  will  go  into  common  buffer  two.  This 
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is  forced  by  putting  that  buffer  address  into  the  parameter  which  controls 
the  reading  of  the  next  block,  (named  NEXTB).  A corresponding  control 
parameter  (named  NB)  is  set  to  the  next  buffer  number,  i.e.,.  2. 

j The  selection  of  an  output  buffer  is  dependent  upon  the  mode.  A 
titlejor  author  search  list  being  combined  with  a previous  search  list  (mode 
i or j 2,  respectively)  will  cause  the  selection  of  common  buffer  six.  All 
other  modes  will  cause  buffer  four  to  be  chosen  for  storing  output.  This  dis- 
tinction is  made  because  title  and  author  lists  may  be  themselves  occupying 
common  buffer  four. 

Main  Loop  A 

Here,  ANDER  sets  an  output  index  parameter  (AX)  to  be  used,  pos- 
sibly, by  the  attribute  screening  routine  BUFSCN  (Section  3.  3. 4.  7)  to  a 
starting  postion  of  zero. 

An  important  factor  concerning  the  reading  of  disk  files  in  proc- 
essing the  two  reference  lists  is  that  time  is  saved  by  overlapping  the  read- 
ing time  with  the  processing  time.  This  is  accomplished  by  using  RDFILE 

'•  i 

instead  of  RDWAIT  to  read  the  files^  This  simply  initiates  the  read  and  pro- 
ceeds on  to  the  next  instruction.  This  necessitates  keeping  the  data  block 
being  read  one  step  ahead  of  the  block  being  processed.  It  also  means  that, 
before  any  new  read,  a call  to  FW^IT  rriUst  be  used  to  ensure  that  the  pre- 
vious read  is  finished.  . ^/ 

A call  to  FWAIT  is  ijiade  at  this  point  in  ANDER  if  file  names  have 
been  set  by  GETLIS.  Then  the  fourth  argument  to  ANDER  is  tested  to  see 
if  attribute  screening  was  requested  by  the  search  routine.  If  so,  BUFSCN 
is  called  with  the  following  four  arguments:  1.  the  core  address  of  the  cur- 

rent block  of  references  of  list- one;  2.  the  number  of  reference  words  in 
this  block;  3.  the  same  core  address  as  1,  to  be  used  as  the  output  area  by 
BUFSCN;  and  4.  the  output  area  .index  set  up  especially  for  BUFSCN(AX). 
The  group  of  in-core  references  is  reduced  by  BUFSCN  to  contain  only  those 
which  contain  the  qualifying  attributes  specified  by  the  user's  search  request 
(RANGE,  TITLE,  and  AUTHOR  with  initials  are  the  only  possible  attribute 
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specifiers  at  present).  The  value  returned  by  BUFSCN  is  the  new  .re- 
duced length.  (Note  that  this  is  only  t}ae  length  of  the  core-stored  block, 
not  of  the  entire  list.)  If  this  length  is  zero,  meaning  all  references  in 
the  block  were  rejected,  or  if  the  FAKE  flag  is  on,  then  the  following  test 
for  determining  which  list's  block  will  be  used  up  first  is  skipped  by  trans- 
ferring directly  to  the  point  where  list-one  is  set  up  for  the  next  read 
("List-One  Loop"). 

Main  Loop  B 

A call  to  FW AIT  must  also  be  made  at  this  point  since  the  exhaus - 
tion  of  list-two  core  references  will  transfer  control  back  to  this  point 
rather  than  to  Main  Loop  A. 

Here  a decision  is  made  as  to  which  list  block  will  be  exhausted 
first  and,  therefore,  which  list  file  wiljL  need  to  be  read  from  next.  This 
decision  is  made  by  examining  the  document  numbers  of  the  last  refer- 
ence in  each  core  block.  Since  the  lists  are  in  descending  numerical 
order  of  document  numbers,  the  one  which  ends  with  the  highest  number 
will  be  exhausted  first. 

List- Two  Loop 

If  list-two  is  due  to  be  emptied  first,  an  indicator  (FST)  is  set  to 
If  the  end-of-file  flag  is  already  set  for  list-two,  control  U).en  branches 
t ie  point  where  references  are  compared  ("Compare  Documents"). 

Otherwise,  the  file  names  of  list-two  (as  established  by  GETLIS)  are 
prepared  as  the  next  file  to  be  read,  and  its  disk  address  (RELLOC)  is  up- 
dated • 

List-One  Loop 

If  list- one  is  due  to  be  emptied  first,  the  FST  indicator  is  set  to  1. 

If  list-one's  end-of  -file  flag  is  already  set,  control  branches  to  the  refer- 
ence comparison  point  ( "Compare  Documents"). 

Otherwise,  the  file  names  of  list-one  (as  established  by  GETLIS) 
are  prepared  as  the  next  file  to  be  read,  and  its  disk  address  (RELLOC) 
is  updated.  \ 
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Then  the  file  whose  name  was  prepared  +o  be  read  next,  if  any,  is 
read  (via  a call  to  RDFIIj*E)  into  the  next  selected  common  buffer  (up  to 
432  words).  (If  the  file  being  read  is  the  Dump  File  and  if  output  has  pre- 
viously been  written  into  the  Dump  File  beyond  the  second  432-word  record, 
theri  a rare  and  insidious  CTSS  file  handling  bug,  involving  alternate  reads 
and  writes  of  diually  opened  files,  must  be  avoided  by  issulpg  a special  call 
to  the  RPWAIT  procedure.  This  read  must  be  into  the  first  half  of  the  file 
and  nett  on  a record  boundary.  It  serves  to  avoid  confusing  the  chaining 
mechanism  of  CTSS  file  handling  logic.) 

Compare  Documents 

Before  comparing  references  from  the  two  lists,  the  FAKE  flag 
(which  indicates  a ps eudo- anding  is  being  done  by  the  NAME  procedure) 
is  checked.  If  this  flag  is  set,  control  is  at  once  transferred  to  point 

further  on  in  ANDER  where  the  reference  is  extracted  from  list-  -i«  and 

\ ' 

inserted  into  the  output  buffer  ("Take  B"). 

If  FAKE  is  not  set,  the  length  of  the  core- stored  references  in  list- 
one  is  checked.  If  it  is  zero  (because  of  an  attributed  screen  which  dis- 
carded them  all),  control  passes  to  the  point  where  the  list- one  index  is  in- 
cremented and  checked  ("Bump  List  One").  This  will  set  up  another  read 
(if  there  are  more  references  on  the  disk  for  this  list)  and  cycle  back  to 
"Main  Loop  AM. 

Having  established  the  existence  of  two  lists  of  references,  the 
document  number  of  the  next  one  pointed  to  by  each  list  index  is  extracted* 

If  the  flag  (FIN)  which  indicates  that,  one  of  the  lists  has  been  com- 
pletely scanned  is  set,  then  transfer  is  made  to  the  point  where  document 
numbers  are  counted  pvi<^r  to  including  the  reference  in  the  output  list 
("Count  Docs").  f 

If  FIN  is  NOT  set,  the  document  numbers  just  extracted  are  com- 
pared* If  they  are  theSame,  control  is  transferred  ahead  to  the  point 
where  term  numbers  may  be  compared  ("Compare  Terms").  If  they 
are  not  the  same,  then  the  mode  will  determine  which  course  of  action  is 
to  be  taken. 
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If  the  NOT  mode  is  active  (0)  and  if  list^one's  document  number 
is  greater  than  that  of  list-two,  transfer  is  made  to  the  list- one  index  in- 
crementation ("Bump  List  One")  which  skips  to  the  next  reference  on  the 
list  governing  the  NOT  screen*  If  list  two’s  document  number  is  larger, 
then  this  reference  isn't  on  the  NOT  list  and  must  be  included  in  the  out- 
put by  transferring  ahead  to  the  point  where  document  numbers  are  counted 
and  references  inserted  into  the  output  buffer  ("Count  Docs"). 

If  the  OR  mode  is  active  (4),  then  a reference  - selection-control- 
flag  (TX)  is  set  (if  list  one's  document  is  larger)  or  reset  (if  smaller). 

j . 

Again,  ANDER  transfers  to  the  document  counting  area.  Count  Docs. 

If  ANDER  reaches  this  point,  then  the  mode  must  be  either  0 or  3 
(one  of  the  modes  of  Boolean  AND).  The  document  numbers  of  the  two 
lists  are  compared  to  see  which  is  the  larger. 

If  the  mode  is  3 (the  weaker  AND),  then  the  document  number  which 
is  larger  must  be  compared  with  the  immediately  preceding  one  on  the  list 
to  determine  if  the  present  one  is  a continuation  of  the  same  document  num- 
ber group.  If  so,  that  reference  must  be  added  to  the  output  list.  This  is 
accomplished  by  setting  (list-one  document  number  greater)  or  resetting 
(list-two  document  number  greater)  the  refer ence  -*s  e lection- control  —flag 
TX  and  branching  ahead  to  "Take  B" . 

If  this  document  number  is  dlffe  rent  from  the  previous  one,  or  if  the 
mode  is  0 (the  stronger  AND),  then  ANDER  transfers  ahead  to  the  appro- 
priate list  inc  re  mentation  section,  depending  upon  which  document  number 
is  larger. 

Bump  List-One 

The  next  reference  word  ii^  list-one  is  made  accessible  by  adding 
one  to  its  indfex  1X1.  If  the  index  is  then  not  beyond  the  last  reference  in 
core,  transfer  is  made  back  to  the  start  of  the  compare  loop  ("Compare 
Documents").  * 

When  the  index  reaches  the  end  of  the  core- stored  references,  the 
end-of-file  flag  is  tested  to  determine  if  any  more  references  are  waiting 
to  be  read  from  a list-one  disk  file. 
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If  EOF  1 is  set,  all  references  in  this  list  have  been  processed.  In 
either  mode  of  ANDing,  this  means  that  the  comparison  is  completed  and 
ANDER  transfers  to  the  wrap-up  section  ("Finish"),  If  the  mode  indicates 
ORing  or  NOTing  is  in  progress,  however,  then  the  other  list  must  be  com' 
pleted  and  added  to  the  output  list.  A check  is  made  to  determine  if,  by  cov 
incidence,  list  two  is  already  exhausted.  If  so,  transfer  is  made  to  "Finish'I 
If  not,  the  reference-selection-  flag,  TX,  is  reset  to  false  to  force  the  selec- 
tion of  list-two  references  to  completion.  Then  the  flag  FIN,  which  in- 
dicates that  one  list  is  done  is  set.  Finally,  the  last  core-reference  address 
of  list-one  is  zeroed  out  to  force  the  main  loop  to  follow  the  path  which  se- 
lectp  and  processes  list-two.  The  address  immediately  following  the  last 
reference  is  also  zeroed  to  prevent  undesirable  document  number  matching. 
ANDER  then  loops  back  to  get  the  next  block  of  list-two  references  ("Main 
Loop'B"). 

If,  upon  exhausting  the  current  in-core  block,  the  e -of-file  flag 
has  not  been  set,  preparation  is  made  for  the  reading  and  processing  of  the 
next  block  of  references  from  the  disk  file.  Tht  parameter  (RL1)  which 
holds  the  number  of  references  left  to  be  read  is  examined  to  see  if  at  least 
one  more  ful.'  block  (432  words)  remains.  If  not,  the  new  core-block  length 
(CL1)  is  set  to  the  number  of  disk  references  remaining,  and  the  disk  ref- 
erence count  is  set  to  zero.  Otherwise,  the  core-block  length  is  set  to  the 
full  block  size  of  432  and  the  disk  reference  count  is  reduced  by  that  amount 

Now  the  core-block  address  is  set  to  thexlocation  contained  in  the 
next-block  parameter,  NEXTB,  and  a new  value  for  NEXTB  is  obtained  t 
from  GET  BUF,  a sub-procedure  of  ANDER  which  accepts  an  argument  con- 
taining the  common  buffer  number  just  exhausted  and  returns  the  address  of 
the  corresponding  buffer.  This  action  ensures  that  the  next  buffer  to  be  used 
will  be  the  one  just  emptied.  / 

Next,  the  core  index  of  list-one  is  reset  to  zero.  Adjustments  are 
made  to  the  core  address,  core  length,  and  disk  reference  count  if  the  list 
is  an  Inverted  File-stored  list.  These  adjustments  are  necessary  to  compen- 
sate for  the  presence  of  a section  header  at. the  top  of  each  block  of  Inverted 
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With  preparations  completed,  ANI^ER  now  loops  back  to  ''Main 
Loop  AM  to  screen  attributes  on  the  new  block  (if  necessary)  and  start  a 
read  of  the  next  one. 

Bump  List-Two 

This  sectioned  ANDER  coding  is  almost  identical  to  the  one  just  de- 
scribed under  "Bump  List-One".  Of  course,  the  list  indices,  counts,  flags, 
etc.  are  those  related  to  list-two  in  this  case.  If  the  entire  list  has  been 
exhausted  and  the  mode  is  OR,  necessitating  the  continued  processing  of 
list-one,  then  the  reference- s election-flag  TX  is  set  to  TRUE  to  force  the 
selection  of  List-one.  (Note  that,  unlike  "Bump  List-One,  " the  NOT  mode 
does  not  require  further  processing  of  the  other  list,  since  list-two  is  the 
only  one  containing  potentially  useable  references).  Transfer  is  made  from 
here  to  "Main  Loop  B"  (as  it  was  in  "Bump  List-One")  to  start  a read  of 
the  next  block  of  list-one  references. 

On  the  other  hand  , J.f  more  list-two  references  remain  to  be  read 
from  the  disk,  the  buffer  and  core-address  settings  ^described  above) 
control  the  reading  of  the  next  block  of  list-two  when  transfer  is  made 
back  to  "Main  Loop  B". 

Compare  Terms 

Certain  modes  require  comparison  of  term  numbers  when  docu- 
ment mimbers  have  been  found  to  match.  One  which  does  not  is  that  used 
for  intersecting  title  references  with  subject  references-  This  is  indicated 
' by  a mode  of  1 sent  from  the  calling  procedure  SEARCH,  (Sections  3.2.4.  1 
and  2).  When,  this  mode  is  detected  at  "Compare  Terms",  transfer  is  imme- 
diately made  to  "Count  Docs"  without  any  term  comparison  being  done. 

Another  mode  requiring  no  term  matching  is  the  "strong"  NOT  (with 
the  AND  before  it)  whose  mode  is  -3.  This  mode  requires  that  all  refer- 
ences with  matching  document  numb be  dropped  from  the  output  list  re- 
gardless of  term  numbers,  sc  ANDER  transfer  to  "Bump  List  Two"  to  get 
the  next  refer  nee, 

Any*other  mode  will  cause  the  extraction  and  comparison  of  the  two 
term  numbers.  The  action  taken  after  comparison  depends  again  upon  the 
specific  mode.  The  "weak"  NOT  (-1)  and  the  "strong"  AND  (0)  will  cause 
ANDER  to  skip  the  reference  by  transf^rjdgjg  to  "Bump  List-One"  if  the  list- 
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one  term  number  is  less  (earlier)  than  the  list-two  term.  If  the  list-one  term 
is  greater  (Later)  than  the  list-two  term,  one  of  two  actions  may  be  taken. 

If  the  mode  is  0,  then  the  list-two  reference  is  skipped  by  transferring  to 
"Bump  List  Two".  If  the  mode  is  -1,  the  "weak"  NOT  allows  the  different 
term  from  the  same  document  by  transferring  to  "Count  Docs".  If  the  term 
num.be rs  are  equal,  the  "weak"  NOT  mode  will  cause  transfer  to  Bump 
Li^t-Two"  which  omits  this  reference  from  the  output  list,  while  "strong" 
AND  mode  will  accept  the  reference  in  the  output  list  by  transferring  to 
"Count  Docs". 

In  the  OR  (4)  mode,  the  term  numbers  are  compared  and  the  refer- 
ence-  s e Lection -flag  XX  is,  set  or^rs  et  depending  upon  whetner  the  list*- one 
ter  in  is  Les  s -than-or  - equal-to  <br  greater-than  the  list-two  term,  respec- 
tively. 

C ount  Doc  s N. 

The  number  of  different  document  numbers  involved  in  the  output 
List  is  tabulated  by  " remembe  ring M the  previous  number  added  to  the  list 
and  comparing  it  here  to  either  list-one’s  o^  list-two’s  document  member, 
depending  upon  the  setting  of  the  indicator  TX.  When  the  numbej/is  the 
same  as  the  previous  orio,  transfer  is  made  ahead  to  MTake  A . If  they 
differ,  the  document  count  is  incremented  by  one  and  the  present  document 
number  becomes  the  new  ’’previous”  6ne . 

Take  A 

Before  the  current  reference  is  added  to  the  output  list,  one  more 
,mod<s  test  is  made.  If  the  mode  is  OR  (4)  and  both  the  document  and  term 
numbers  of  the  two  list's  current  references  are  identical,  then  neither 
reference  is  chosen  for  insertion  into  the  output  list  on  this  cycle  through 
the  comparison  loop.  Omission  is  caused  by  transferring  ahead  to  "See 
Mode.1'  After  one  list  index  is  advanced,  then  if  the  two  current  references 
differ,  the  remaining  similar  reference  is  selected.  This  avoids  duplicity 
of  references. 
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Take  B 

The  decision  as  to  which  list  will  provide  the  current  reference 
to  be  addend  to  the  output  list  is  determined  by  either  the  "pseudo-AND'1 
flag  FAKE  or  the  reference-selecTon-flag  TX.  If  either  of  these  flags 
is  set,  the  reference  is  extracted  from  list-one.  If  both  are  reset,  the 
list-two  reference  is  taken,  tri  either  case,  as  soon  as  the  transfer  of  the 
reference  into  the  output  buffer  has  been  made,  the  output  index  (OX)  is  in- 
cremented by  one  and  a test  is  made  to  see  if  the  buffer  (432  words)  is  now 


full. 

When  the  buffer  is  full,  the  CTSS  utility  procedure  WRWAIT  is 
called  to  write  the  contents  of  the  buffer  into  the  output  file.  Then  the 
written^  reference  counter  OUTCNT  is  incremented  by  432  and  the  output 
buffer  index  OX  is  reset  to  zero. 

See  Mode 

Having  completed  the  comparison  and  selection  or  rejection  of  one 
Terence,  ANF  "ft  determines  which  list  index  should  be  inc r emented  t^y  again 
examining  the  mode. 

A mode  of  4 (OR)  will  cau^e  ANDER  to  use  the  ref  erence  - s e lection- 
flag  TX  to  determine  which  of  the  two  references  was  just  used  and,  there- 
fore, which  list  index  should  be  next  incremented. 

All  the  other  modes  except  0 (strong  AND)  will  cause  transfer  to 
"Bump  List-Two"  to  get  the  next  list-two  reference. 

The  zero  mode  increments  both  of  the  list  indices.  Rather  than  test 
for  the  end- of -buff  e r in  both  incrementations,  only  the  one  which  is  sched- 
uled to  run  out  firrst,  as  determined  back  at  the  beginning  of  "Main  Hoop  B", 
must  be  tested.  This  is  detected  here  by  examining  the  earlier  set  flag, 

FST.  If  FST  is  1,  then  list-one  will  be  exhausted  first  so  the  list-two  in- 
dex is  incremented  here,  followed  by  a transfer  to  "Bump  List-One".  If 
FST  is  2,  then  list-two  will  run  out  of  reference  first  and  the  reverse 
procedure  will  be  followed. 


F inish 

When  all  relevant  references  have  been  processed,  the  output  list 
must  be  completed  and  the  new  pointer  must  be, constructed  and  entered 
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into  the  list  pointer  table.  First,  the  current  output  buffer  index,  OX  is 
added  to  the  written- reference  counter  OUTCNT  to  update  the  total  num- 
ber of  references  in  the  output  list. 

Next,  the  disk  files,  if  any,  holding  the  lists  may  need  to  be  closed, 
depending  upon  the  type  of  list  involved  and  the  mode  of  ANDER. 

If  OUTCNT,  the  number  of  output  references  selected,  is  zero,  then 
ANDER  immediately  returns  to  the  calling  program  with  a zero  for  a return 
value.  Otherwis  e , the  current  output  block  is  written,  using  WRWAIX,  into 
the  output  file.  (Note  that  the  entire  432-word  block  is  written,  even  if  only 
partially  filled.) 

Now,  the  block  count  in  the  POT,  which  indicates  the  size  of  the 
user's  Dump  File,  is  updated  by  adding  the  number  of  blocks  written  by 
this  call  to  ANDER.  (If  the  pseudo-anding  mode  called  by  the  Name  proce- 
dure is  in  use,  the  Name  File  block  count  is  updated  instead.) 

An  augmented  list  pointer  is  now  constructed  within  a local  array 
containing  all  the  relevant  data  pertaining  to  the  size  and  location  of  the  new 
list.  This  pointer  is  then  added  to  the  table  by  calling  the  procedure  TABENT 
(see  Section  3.  3.  2.  3),  which  returns  a pointer  to  the  location  in  the  table 
where  it  inserted  the  augmented  pointer.  The  number  of  documents  tabulated 
by  the  "Count  Docs"  section  is  inserted  into  the  decrement  of  the  new  pointer 
making  it  a complete  list  pointer,  which  is  then  returned  as  a value  to  the 
calling  program. 

B.  Procedures  Calling  ANDER:^ 

STRCH,  ASRCH,  AND.,  NAME 

C.  Procedures  Called  By  ANDER 

GETLIS,  FWAIT,  BUFSCN  (via  CALLIT),  RDWAIT,  RDFILE, 

GETBUF,  WRWAIT,  CLOSE,  TABENT 


D.  COMMON  References: 
Name 

TOTBLK(POT .) 

TOTNAMfPOT.) 

DFNl(POT.) 

NFNl(POT.) 

COMBF2(POT.) 

COMBF 4(POT .) 

COMBF6(POT  .) 


Meaning 

Dump  File  block  count 
Name  File  block  count 
Dump  File  name -one 
Name  File  name -one 
common  buffer  two 
common  buffer  four 
common  buffer  six 


Interrogated?  Changed? 

x x 

x x 

x 

X 

X 

X 

X 
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E.  Arguments: 

PI: 

P2: 

MAND: 

S: 


address  pointer 
address  pointer 
integer 
Boolean 


E - Values : 

NP  = pointer  to  new  list 


G.  Error  Codes: 

NP  = -1  (List  table  full) 

H.  Messages: 

None  (see  GETLIS  below) 

I.  Length: 

1655g  or  941 10  words  (excluding  GETLIS) 

J . Source: 

BOOL  ALGOL 
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3.4,6  GET  LIS 
irpop  e 

► provide  access  to  a reference  list 
:s  c ription 

The  variety  of  list  types,  formats,  sizes,  etc,  greatly  complicates 
s problem  of  accessing  lists  for  output  cr  comparison  by  the  ANDER 
ocedure.  GETLIS  is  designed  to  modularize  the  operations  involved  in 
itiating  a read  of  a list  (if  disk- stored)  and  supplying  the  relevant,  data 
the  location  and  size  of  the  list.  Although  GETLIS  is  internal  to  ANDER, 
is  used  also  by  FSO  in  processing  a user's  OUTPUT  command. 

Ope  ration: 

GETLIS  (PI,  Tl,  CA1,  CL1,  DA  1 , RL  1 f XNAM1,  XNAM2, 

BLKA,  BLKB) 

The  current  length  of  the  Dump  File  is  obtained  by  multiplying  the 
Dck  count  in  the  POT  by  432,  the  number  of  computer  words  in  a disk 
cord.  This  will  be  used  to  determine  the  necessity  of  avoiding  a CTSS 
e reading  bug  as  described  below. 

The  only  argument  (of  the  ten  employ  ed)  which  passes  informa - 
m to  GETLIS  rather  than  accepting  information  from  it,  is  PI.  This  argu- 
ent  contains  a pointer  to  a reference  list  augmented  pointer . The  tag  of  the 
cond  word  of  this  augmented  pointer,  containing  the  list  type,  is  extracted 
id  placed  in  the  second  argument  of  GETLIS,  Tl. 

If  the  type  is  0,  then  GETLIS  is  dealing  with  a completely  core- 
ored  reference  list  and  there  is  no  disk  file  to  be  read.  The  seventh  argu- 
ent  XNAM1  (file  name  one),  and  the  corresponding  ANDER  parameter 
lich  holds  the  current,  to-be-read  file  name  (LN1)  are  set  to  zero.  Also 
t to  zero  is  the  sixth  argument  RL1,  which  holds  the  number  of  disk- 
ored  references  left  to  be  read.  In  this  case,  GETLIS  jumps  ahead  to  the 
id  of  the  procedure  where  the  third  and  fourth  arguments,  core  address 
list  and  core  length  of  list,  respectively,  are  filled  from  the  augmented 
st  pointer. 
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Any  other  type  of  list  involves  at  least  some  disk- stored,  refer  ^ 
ences.  The  disk  index  (RELLOC)  and  the  number  of  disk-stored  refer- 
ences are  extracted  from  the  augmented  pointer  and  inserted  into  argu- 
ments five  and  six,  respectively. 

If  the  list  type  is  4 (a  NAMEd  list),  then  the  Name  File's  first 
name  is  copied  from  ‘the  POT  into  the  seventh  argument  and  into  the  local 
parameter  LN1.  The  eight  argument  and  local  LN2  are  set  to  contain  the 
word  FILE,  which  is  always  the  last  name  of  a Name  File  (or  Dump  File). 

A call  to  FS TATE  is  made  to  determine  if  this  file  is  already  open  for 
reading.  If  not,  the  procedure  OPEN  is  called. 

If  the  list  type  is  2 (stored  on  the  Dump  File),  then  the  Dump 
File  name  is  extracted  from  the  POT  and  inserted  into  the  seventh  argu- 
ment and  LN1.  No  FSTATE  call  is  needed  in  this  case  because  the  Dump 
File  is  always  open  for  both  reading  and  writing. 

In  both  cases  of  completely  disk-stored  lists,  the  first  block  of 
references  is  read  into  core  and  occupies  one  of  the  common  buffers  not 
already  being  used.  A fairly  elaborate  system  of  common  buffer  book- 
keeping is  carried  on  in  IFSRCH  (Section  3.2.5.  1),  ANDER  (previous 
Section),  and  GETLIS,  using  the  common  buffer  numbers  stored  in  the 
augmented  list  pointers.  These  block  numbers  are  extracted  by  ANDER 
(called  BLK1  for  list-one  and  BLK2  for  list-two)  and  both  are  passed  to 
GETLIS  as  arguments  nine  and  ten  (BLKA  and  3LKB).  When  list-one  is 
to  be  read,  BLK1  is  first  and  becomes  BLKA  in  GETLIS.  When  list-two 
^ is  to  be  read,  BLK2  is  first  and  becomes  BLKA  in  GETLIS.  When  GETLIS 
is  called  from  FSO  or  NUMBER,  buffer  four  or  five,  respectively,  is  passed 
via  argument  nine  to  become  BLKA.  Argument  ten  ,BLKB,  is  zero. 

GETLIS  now  examines  argument  nine,  BLKA  and,  if  it  is  non-zero, 
leaves  both  block  numbers  as  they  are.  If,  however,  BLKA  is  a zero.it 
indicates  that  the  call  to  GETLIS  is  from  ANDER,  rather  than  FSO  or 
NUMBER,  and  that  there  are  no  references  from  this  list  in  core.  There- 
fore a common  buffer  must  be  selected  by  placing  a buffer  or  block  num- 
ber in  BLKA.  The  object  is  to  read  list-one  into  buffer  one  and  list-two 
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into  buffer  three.  On  the  first  call  to  GETLIS,  BLK2  is  BLKB  and 

is  also  empty.  This  prompts  GETLIS  to  put  a 1 into  BLKA  (i.  e.,  BLK1). 

On  the  second  call  to  GETLIS,  BLK1  is  BLKB  and  will  not  be  empty.  This 
informs  GETLIS  to  put  a 3 into  BLKA  (i.  e.  , BLK2). 

Now  BLKA  is  used  to  compute  the  actual  core  address  of  the  se- 
lected  common  buffer,  which  is  then  placed  in  argument  three,  CAL 

If  the  list  type  is  2 (in  Dump  File),  action  must  be  taken  to  avoid 
the  CTSS  file  chaining  bug,  involving  files  which  are  opened  simultaneously 
for  reading  and  writing,  by  making  an  extra  read  into  the  first  half  of  the 
file  at  a position  other  than  on  a record  boundary. 

For  either  list  type  (2  or  4),  RDWAIT  is  now  called  to  put  the  first 
block  of  disk-stored  references  into  core  in  the  selected  common  buffer. 
The  disk  index,  argument  five,  is  incremented  by  the  size  of  the  block(432) 
and  the  number  of  disk-stored  references  remaining,  RL1,  is  reduced.  If 
the  resulting  number  is  less  than  the  size  of  a block,  then  that  number  is 
used  to  fill  the  fourth  argument  (number  of  core-stored  references)  and 
the  disk  reference  count  is  reduced  to  zero. 

If  the  number  of  disk  references  is  presently  greater  than  or  equal 
to  the  size  of  a block,  then  the  fourth  argument,  CL1,  is  set  to  432  and 
the  disk  reference  count  is  reduced  by  that  same  amount. 

In  the  case  of  list  types  2 and  4,  GETLIS  is  now  finished  and  re- 
turns to  the  calling  program. 

If  the  list  type  is  I,  indicating  a list  which  is  partially  in  core,  with 

i , . ' . 

the  rest  of  the  references  in  an  Inverted  File  segment,  then  the  first  name 
of  that  segment  must  be  extracted  from  word  one  of  the  augmented  list 
pointer.  This  name  is  deposited  into  ajrgument  seven  and  the  local  para- 
meter LNI  (for  use  by  ANDER).  The  second  name  of  the  segment  is  ob- 
tained from  the  POT  and  placed  in  argument  eight  and  LN2.  A call  to 
FSTATE  is  made  to  determine  if  this  file  is  currently  open  for  reading. 

If  not,  it  is  opened  by  calling  the  CTSS  procedure  OPEN. 

At  this  point  the  address  and  length  of  the  core-stored  portion  of  the 
list  is  extracted  from  the  third  word  of  the  augmented  pointer  and  deposited 
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in  the  third  and  fourth  arguments  of  GETLIS.  (These  steps  also  serve  in 
processing  type  0 lists  as  mentioned  earlier.)  This  completes  the  proc- 
essing of  all  legitimate  list  types  and  GETLIS  returns  to  the  calling  pro- 
gram*  ^ 

If  the  type  code  taken  from  the  augmented  list  pointer  is  other  than 
those  described  above,  GETLIS  transfers  to  an  error  exit  where  a mes- 
sage (1)  informs  the  user  of  the  error,  and  processing  is  terminated  by  a 
call  to  DORMNT. 

B.  Procedures  Calling  GETLIS: 

ANDER,  FSO,  NUMBER 

C.  Procedures  Called  By  GETLIS: 

FSTATE,  OPEN,  RDWAIT 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 


TOTBLK(POT.) 

Dump  File  block  count 

X 

NFN1  (POT.  ) 

Name  File  name  one 

X 

DFNl(POT.) 

Dump  File  name  one 

X 

COMBFl(POT .) 

Common  buffer  one 

X 

IFS2(POT.) 

Inverted  File  name  two 

X 

E.  Arguments:  (—  means  argument  gives  data  to  GETLIS.  -—means  argu- 

, ment  accepts  data  from  GETLIS.) 


1. 

PI: 

— ► 

address  pointer 

2. 

Tl: 

list  type 

3; 

CA1: 

core  reference  address 

4. 

CL1: 

— 

core  reference  length 

5. 

DAI: 

disk  file  index 

6. 

RL1: 

— 

disk  references  left 

7. 

XNAM1: 

list  file  name  one 

8. 

XNAM2: 

list  file  name  two 

9. 

BLKA: 

— 

this  list's  core  buffer 

10. 

BLKB: 

— 

ol^her  list's  core  buffer 

F.  Values: 


None 
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G.  Error  Codes: 

None 

H.  Messages: 

1.  "Invalid  List  type  in  pointer" 

I.  Length: 

37 4g  or  252,  0 words 

* 

J.  Source: 

BOOL  ALGOL 

K.  Files  Referenced: 

DUMnnn  FILE 
NAMnnn  FILE 
SInnn  date 

A Innn  date 


(LOCMES) 


( 


{ 
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3 » 3«  4.  7 BUFSCN 
Purpose 

To  screen  list  by  attributes 
Description 

Wben  the  user  specifies  a RANGE  in  a SUBJECT  command,  or 
when  he  issues  a TITLE  command  (which  is  really  like  a SUBJECT  with 
range  5),  or  when  he  issues  an  AUTHOR  command  qualified  by  initials, 
the  specified  attributes  are  set  during  the  interpretation  phase  to  be  used 
in  screening  the  resulting  reference  list.  This  screening  is  done  either 
during  execution  of  the  SEARCH  procedure  via  ATSCRN  (which  in  turn, 
calls  BUFSCN  to  perform  the  actual  screen  - see  Section  3.2.4.  3)  or 
during  execution  of  ANDER,  which  calls  BUFSCN  directly).  BUFSCN 
examines  one  core  array  of  references  and  cdmpares  the  appropriate 
component  of  the  reference  word  to  fc^e  specified  attribute.  Only  those 
references  with  the  matching  attribute^— are  kept  in  the  array. 


A.  Operation:  NWDS  = BUFSCN  (INAD,  WDS,  OUTTAD,  OX) 

' BUFSCN  consists  of  one  large  processing  loop  within  which  is  an- 
other loop  almost  ad  large.  The  first,  or  outer  loop  steps  one-by-one 
through  the  list  of  references  supplied  by  the  first  two  arguments  of  BUFSCN. 
The  first  argument  specifies  where  the  reference  group  begins  and  the  sec- 
ond argument  tells  how  many  there  are  to  be  examined,  thus  controlling  the 

i 

duration  of  this  outer  loop. 

The  second,  or  inner  loop  steps  through  the  attribute  list  as  set  up 
during  the  interpretation  of  the  user's  search  request  and  prepared  locally 
by  IFSR.CH  (which  is  the -reason  for  compiling  BUFSCN  and  ATSCRN  in  the 
same  file  as  IFSRCH). 

Each  reference  word  is  compared  to  each  attribute  word  with  the 
irrelevant  parts  of  the  reference  words  masked  off.  Further  action  is  taken 
only  if -the  two  remaining  parts  are  equal. 

A reference  which  contains  the  required  attributes  is  stored  in  the 


O 
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array  designated  by  the  third  argument  of  BUFSCN  at  the  depth  spec ified 


by  the  index  in  the  fourth  argument.  When  BUFSCN  is  called  by  ANDER, 
this  index  is  used  merely  to  control  the  output  storage  (which  is  the  same 
area  as  the  input)  and  to  record  the  length  of  the  output  list.  When  called 
from  ATSCRNjhowever  , the  index  is  carried  over  from  one  call  of  BUFSCN 
to  the  next  until  the  output  buffer  is  full  (432  words).  As  the  references  are 
stored  in  the  output  area,  the  document  numbers  are  counted  by  comparing 
each  number  to  the  previous  one.  Whenever  a different  number  is  encoun- 
tered, the  counter  is  incremented.  This  count  is  used  only  by  ATSCRN  and 
ii;  not  communicated  to  ANDER. 


File  and  the  block  counter  stored  in  the  POT  is  incremented.  At  this  point, 
the  output  index  (fourth  argument)  is  reset  to  zero  and  the  parameter  con- 
taining the  number  of  references  written  is  incremented  by  432  for  the  ben- 
efit  of  ATSCRN. 

After  the  outer  loop  has  stepped  through  all  the  references  in  the  in- 
put block,  the  output  buffer  index  is  returned  to  the  calling  routine. 

B.  Procedures  Calling  BUFSCN: 


If  the  output  buffer  is  filled,  its  contents  are  written  onto  the  Dump 


ANDER,  ATSCRN 


C.  Procedure  Called  By  BUFSCN: 
W RW  AIT 


D.  COMMON  References: 


DFNl{POT.) 

TOTBLK(POT.) 


Name 


Dump  File  name  one 
Dump  File  block  count 


Meaning 


E.  Arguments: 


IN  AD: 
WDS: 
OUTAD: 
OX: 


address  pointer 
intege  r 

address  pointer 
intege  r 


\ 
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F.  Values: 

NWDS  = length  of  screenecMist 

G.  Error  Codes: 

None 

H.  Messages: 

-r 

None 

I.  Length: 

170g  or  120^  words 

J.  Source: 

XFSRCH  ALGOL 

K.  Files  Referenced: 

DUMnnn  FILE 
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3«4  Intrex  Utilities 

3.4.1  Free  Storage  Controls 

3.4.  1.  1 FREE 

Purpose 

To  obtain  memory  block  from  free  storage 
Sesc  r iption 

FREE  locates  a block  of  contiguous  core  locations  of  the  size  requested, 
removes  the  block  from  the  free  storage  chain,  and  returns  a pointer  to  it. 

When  the  first  call  is  made  to  FREE,  the  memory  bound  is  raised  to  the 
top  of  memory,  creating  a free  storage  area.  As^storage  is  requested, 
blocks  are  taken  from  progressively  higher  locations  in  this  area.  When 
storage  is  returned  to  this  area,  its  location  is  entered  in  the  first  ele- 
ment in  the  chain,  a word  in  the  free  storage  package.  At  the  same  time, 
the  length  of  the  area  returned  is  entered  in  the  decrement  of  the  first  word 
of  this  area.  If  a second  block,  higher  than  the  first,  is  returned,  the  ad- 
dress portion  of  the  first  word  of  the  first  block  will  be  filled  with  the  loca- 
tion of  the  second  block  and  fhe  length  of  the  second  block  will  be  inserted  in 
the  decrement  of  the  first  word  of  the  second  block.  If  the  second  block  is  be- 
tween the  pointer  in  the  free  storage  package  and  the  first  block  returned,  the 

first  word  of  the  second  block  is  modified  to  contain  its  length  and  tlie  loca- 

\ / 

tion  of  the  first  block.  The  original  pointer  is  modified  so  as  to  point  to  the 
second  block  instead  of  the  first  block. 


\ 


<v 


\ 


367 

• 7 « i 

I * **■ 


? 


3.  4.1.1 


-3  52- 


Diagram  of  Memory 
Fig.  3. 3 

K 


A.  Operation  Ptr  = FREE  (Len) 

1.  If  Len  is  less  than  or  equal  to  zero,  FREE  prints  an  error  mes- 
sage by  means  of  a call  to  CNTLOC  and  then  calls  ERRGO  (Sect.  3.  1 . 0.  1 

2.  FREE  steps  through  the  linked  list  of  free  storage  areas,  looking 
for  one  at  least  as  big  as  Len.  If  it  finds  an  area  larger  than  Len, 

FREE  uses  the  first  part  of  the  block  to  fill  the  storage  request  and 
relocates  the  pointer  in  the  first  word  of  the  block  to  be  just  beyond 
the  portion  retrieved.  This  involves  adjusting  the  pointer  of  the 
previous  block  so  that  it  points  Len  words  further  and  it  involves 
constructing  a new  pointer  for  the  remnant  of  the  original  block.  j 

3.  If  FREE  discovers  a block  of  size  Len  in  its  free  storage  chain, 
there  will  not  be  a remnant  left  after  the  request  is  filled.  There- 
fore, FREE  modifies  the  pointer  of  the  previous  block  so  that  it 
points  to  the  block  following  the  retrieved  block. 
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4.  If  FREE  cannot  find  a block  large  enough,  it  looks  for  room 
above  the  free  storage  chain.  If  there  is  room  there,  the 
lower  end  of  this  block  is  allocated.  This  portion  will  become 
part  of  the  free  storage  chain  if  it  is  later  returned  via  FRET. 

5.  If  there  is  no  room  available,  an  error  message  is  printed  and 
FREE  returns  an  error  code  of  - 1 . 

6 . If  FREE  has  found  a block  of  length  Len,  it  returns  the  location 
of  the  first  word  of  the  block  as  its  value. 

B.  Procedures  Calling  FREE: 

AUTHOR,  CONNAM,  GETFLD,  IFSINT,  INIFIX,  INIFOT, 
INITYP,  INI  VAR,  IN./SYSGEN,  TABLE,  TYPASH 

C,  Procedures  Called  By  FREE: 

CNTLOC , ERRGO,  GETMEM,  OCTTOI,  SETMEM,  WFLX, 
WFLXA. 


D.  COMMON  References: 
None 


E.  Arguments: 

Len:  binary  integer 


F.  Values: 

Ptr  = location  of  first  word  of  block 


G.  Error  Codes: 

Ptr  = -1:  storage  not  available. 


H.  Messages: 

u 

1.  "Illegal  use  of  Tree’,  count  is  zero  or  negative"  (preset) 

2.  "Short  x words  of  free  storage 

Largest  block  is  y 

Total  storage  is  _z"  (preset) 


t 
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X.  Length: 

250fi  or  1681q  words 

J.  Source: 

FREED  ALGOL 

K.  File  References: 

None 
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3,4, 1.2  FRET 


Purpose 


To  return  memory  to  free  storage. 

Des  c ription 

When  a block  of  storage  obtained  via  the  free  storage  mechanism  is 
no  longer  needed*  it  can  be  returned  to  the  common  storage  pool  by  means 
of  a call  to  FRET. 

A.  Operation:  FRET(Len,  Ptr) 

A subroutine  calls  FRET  to  return  a block  of  storage  of  length 
Len  located  at  Ptr. 

1.  If  Fen  is  less  than  zero,  an  error  message  is  printed.  If  Len  is 
zero,  FRET  returns  without  doin-  anything. 

2.  FRET  steps  through  the  free  storage  chain,  looking  for  a block 
whose  address  is  greater  than  the  one  being  returned.  k 

3.  If  the  block  being  returned  is  above  those  already  in  the  chain, 

the  last  pointer  in  the  chain  is  modified  so  as  to  point  to  this  new  last 
block.  However,  if  the  block  which  was  formerly  the  last  block 
in  the  chain  overlaps  with  the  block  being  returned,  an  error  mes- 
sage is  printed  and  nothing  else  is  done.  If  the  block  being  re- 
turned is  contiguous  with^the  last  block,  the  two  are  merged  in- 
to one. 

4.  If  the  block  being  returned  has  a lower  address  than  a block  al- 
ready, ir^the  chain,  it  is  inserted  in  the  chain.  If  the  block  being 
returned  overlaps  with  the  block  in  front  of  it,  an  error  message 
is  printed  and  nothing  is  done.  If  it  overlaps  with  the  block  be- 
hind it,  a comment  is  made  and  it  is  merged  with  this  block.  If  it 
touches  neither  the  one  in  front  of  it  or  behind  it,  the  pointer  asso- 
ciated Avith  the  block  in  front  is  modified  to  point  to  the  new  block, 
and  the  new  block  is  made  to  point  to  the  one  following  it. 

I K 

B-  Procedures  Calling  FRET:  % 

ASClfrC,  CHKNAM,  CLP,  CONNAM,  EVAL,  FC  LEAN , FRALG, 
GETFLD,  GETINT,  GETLIN,  IFSINT,  IFSRCH,  TNFO,  inifdc, 
INFti>,  INITYP,  NEXITM,  NUMBER,  PREP,  QUIT,  RANGE, 
R^NjD,  SUBJ.,  S.T,  TABLK,  TITLE,  TYPASH,  TYPEIT,  .C.ASC 

■ i 

C.  Procedures  Called  By  FRET: 

CNTLOC , ERRCO , GETMEM,  OCTTOI,  WFLX,  WFLXA 
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D.  COMMON  References: 

None 

E . Arguments : 

Len:  length  of  block  to  be  returned  (binary) 

Ptr:  location  of  block  to  be  returned  (binary) 

E , Values: 

None 

G.  Error  Codes: 

" None 

H.  Messages: 

1.  ’'Illegal  use  of  'fret1,  count  negative"  (preset) 

2.  "An  attempt  to  'fret*  storage  already  returned"(preset) 

I.  Length: 

25ig  or  169-^q  words 

J.  Source: 

FREED  ALGOL 

K.  Files  Referenced: 

None 


72 
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3.4.  1.3  FREZ 


Purpos  e J 

To  obtain  a zeroed  memory  block  from  free  storage 


) 


* 


Des  c ription 

A.  Operation:  Ptr  = FREZ(Len) 

FREZ  calls  FREE  to  obtain  a block  of  storage  of  size  Len.  FREZ 
uses  a Fap-coded  loop  to  zero  it  out  before  returning  the  location  of  the 
first  word  of  the  block  as  the  value  of  FREZ.  j 

B.  Procedures  Calling  FREZ:  ^ 

AUTHOR,  ASCIT,  ASCITC,  ASCIT6,  BUFSCN,  CLP,  CTSIT, 
CTSIT6,  EVAL,  GETFLD,  GET  LIN,  IFSRCH,  INIS  . T , 

INITDB,  MONINT,  NEXITM,  NUMBER,  PREP,  RANGE,  REND, 
SEARCH,  SUBJ.,  S.T.,  TABLE,  TABLK,  TITLE 


C.  Procedures  Called  By  FREZ; 

CNTLOC,  ERRGO,  FREE 

D.  COMMON  References: 

None 


E.  Arguments: 

Len:  binary  integer 

F.  Values: 

Ptr  = core  location  in  binary 


G.  Error  Codes: 

Ptr  = -I:  xiot  enough  storage 


H. 

I. 


J. 


Mes  s ages : 

1.  "Illegal  use  of  'FREZ'. 
Length: 

43Tnor  530  words 
x U o 

Source; 

FREED  ALGOL 

Files  Referenced: 

None 


Count  is  zero  or  negative”  (preset) 


' * L* 
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3,4,  1,4  CNTLOC 
Purpose 

To  print  count  and  location  of  cajd  to  erring  free  storage  procedure 
Des  cription 

CNTLOC  is  called  by  FREE  and  FRET  to  print  a message  giving 
the  origin  of  a call  to  free  storage  and  the  size  of  the  block  in  question. 

A.  Operation:  CNTLOC(  ) 

1.  If  the  high  end  of  a block  being  returned  via  FRET  overlaps, 

CNTLOC  prints: 

Count  = x Called  from  location  y 
Count  adjusted  to  z 

If  the  beginning,  or  low  end,  of  the  block  overlaps,  CNTLOC  prints : 

'Count  = x Called  from  location  y 
FRET  call  ignored 

2.  If  FREE  calls  CNTLOC  (which  is  only  when  Len  is  less  than  or  equal 
to  zero),  only  the  first  line  of  the  message  above  is  printed, 

B,  Procedures  Calling  CNTLOC: 


FREE,  FREZ,  FRET 


C.  Procedures  Called  By  CNTLOC: 
OCTTOI,  WFLX,  WFLXA 


D,  COMMON  References: 
None 


E,  Arguments: 
None 


F,  Values: 


None 


G.  Error  Codes: 


None 
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[.  Messages: 

See  Item  A in  this  Section 

. Length: 

51g  or  41jq  words 

. Source: 

FREED  ALGOL 

1.  Files  Referenced: 

N one 


\ 
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3.4.  1,5  SIZE 
Purpose 

To  find  size  of  largest  block  of  free  storage* 

Des  c ription 

A.  Operation:  Val  = SIZE(  ) 

SIZE  steps  through  the  free  storage  chain,  looking  for  the  largest 
block*  The  size  of  the  largest  block  is  returned  as  the  value  of  SIZE. 

B.  Procedures  Calling  SIZE: 

IN IF IX,  SUPER 

C . Procedures  Called  By  SIZE: 

GETMEM 

ID.  COMMON  References: 

None 

E.  Arguments : 

None 

F.  Value: 

Val  — size  of  largest  block  in  binary 

G.  Error  Codes: 

None 

H*  Messages: 

None 

L Length: 

1018  or  65^^  words 

J.  Source: 

FREED  ALGOL 

K.  Files  Referenced: 

None 
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3.4.  1.6  FRER 

/ 

Purpose 

To  check  free  storage 
Description 

FRERis  used  to  determine  if  a block  of  free  storage  of  the  size  de- 
sired is  available. 

A.  Operation:  Code  = FRER  (Len) 

FRER  calls  SIZE  to  find  the  largest  block  of  free  storage  available. 
If  this  block  is  smaller  than  Len,  FRER  returns  a zero;  otherwise,  it  re- 
turns a 1 . 


B.  Procedures  Calling  FRER: 

CONNAM,  GETFLD,  TYPASH 

C.  Procedures  Called  By  FRER: 

SIZE 

D.  COMMON  References: 

None 


E.  Arguments: 

Len:  size  of  storage  block  needed  in  binary. 

F.  Values: 

Code  - 1 - not  enough  storage 

0 - storage  is  available 

G.  Error  Codes: 

None 


„ H.  Messages: 

None 
R Length: 

llg  or  words 

J.  Source: 

FRCSD  ALGOL 

K . Files  Re f • ; fenced: 

^ y None 
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3.4.  1.7  FSIZE 
Purpos e 

* 

Xo  count  the  total  number  of  words  of  free  storage  tliat  are  available., 
Description 

A,  Operation:  Val  = FSIZE(  ) 

FSIZE  calls  SIZE,  which,  in  the  course  of  finding  the  largest 
block  of  storage,  also  totals  all  of  the  blocks  together,  FSIZE  returns  this 
total  as  its  value. 

13,  Procedures  Calling  FSIZE: 

SUPER 

C/  Procedures  Called  By  FSIZE: 

SIZE 

D„  COMMON  References: 

None 

E,  Arguments: 

None 

in  binary 
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F.  Values: 

Val  = free  storage  total, 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

14  or  1 words 
8 10 

J.  Source: 

FREED  ALGOL 

K.  Files  Referenced* 

None 


0 
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3.  4.  1. 8 PRESET 


( 


) 


Purpose 

To  reset  free  storage  package. 

Description 

FRESET  zeroes  out  the  variables  in  the  free  storage  mechanism. 

A subsequent  call  co  FREE  will  result  in  storage  being  allocated  from 
above  the  current  memory  bound. 

A.  Operation:  FRESET(  ) 

FRESET  zeroes  out  the  first  word  of  the  free  storage  chain,  along 
with  3 other  variables. 


B. 

Procedures 

SYSGEN 

C. 

Procedures 

None 

E. 

Arguments  : 
None 

F. 

Values : 

• None 

G. 

Error  Code! 
None 

H. 

Mess  ages : 
None 

I. 

Length: 

4 


\ 


12 


8 


or  10^  words 


J. 


Source : 

FREED  ALGOL 


K.  Files  Referenced: 
None 


O 
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3,4.  L.9  FTRACE 
Purpos e 

To  trace  use  of  free  storage. 

Desc  ription 

A.  Operation:  FTRACE(Swt) 

If  FTRACE  is  called  with  a value  of  1 for  Swt,  the  tracing  mech- 
anism is  turned  on.  When  FREZ  or  FREE  is  called,  the  system  willprint 
the  location  of  the  storage  block,  its  size,  and  the  location  of  the  call  to 
the  free  storage  package,  each  on  a separate  Line.  When  FRET  is  called, 
the  size,  the  location  of  the  block,  and  the  location  of  the  call  are  printed, 
in  that  order. 

R.  Procedures  Calling  FTRACE:  \ 

None 

C.  Procedures  Called  By  FTRACE: 

- None 

D.  COMMON  References: 

None 

E.  Arguments:  ^ 

Swt:  1*  turn  on  trace 

0:  turn  off  trace 

F.  Values: 

None 

G.  Error  Codes: 

None 

i ' \ 

H.  Messages: 

None 


I.  Length: 

6 words 


J. 


Source : 

FREED  ALGOL 
Files  Rehr  r eraced: 

None 
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3.4.1.  10  FRALG 


jPu  rpos  e 

To  return  a procedure  to  free  storage  when  it  is  no  longer  needed. 
De  s c r iption 


Certain  procedures,  such  as  initialization  routines,  are  only  ex- 


ecuted once.  FRALG  makes  available  as  data  areas  the  memory  used  by 
such  routines. 


FRALG  calls  MAINBD  to  find  the  boundary  between  the  core- 
resident section  of  the  retrieval  system  and  the  overlay  sector.  If  FRALG 
is  being  called  by  a routine  in  the  overlay  sector,  FRALG  returns  without 
doing  anything. 

Otherwise,  FRALG  makes  a call  to  FRET  of  the  form:  FRET  (Label  2 
Label  1,  Label  1),  where  Label  1,  Label  2 are  labels  in  the  calling  proce- 
dure defining  the  first  and  last  locations  of  the  area  to  be  returned. 

B.  ProceduresC ailing  FRALG: 


A.  Operation: 


FRALG  (Label  1,  Label  2) 


INIAUT,  INICON,  INIEVL,  INIFIX,  INIFLD,  INIOUT,  INIRNG, 
IN  IS . T , MONINT,  PREP,  SIGNIN,  SYSGEN,  TABLE 


C.  Procedure?  Called  By  FRALG: 
FRET,  MAINBD 


f D.  COMMON  References: 

None 


E.  Arguments: 


Label  1:  beginning  location  of  area  to  be  returned 

Label  2:  ending  location  of  area  to  be  returned 


F.  Values: 


None 


G.  Error  Codes: 


ERIC 


None 
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H . Messages: 
None 

I-  v Length: 


22.^  or  26 0 words 
10  8 


J.  Source: 
j 


FRALG  FAP 


K.  Files  Referenced: 
N one 


O 

ERIC 
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3.4.Z  Code  Conversion 


3, 4. 2.  I . C . ASC 
Purpose 

To  generate  an  ASCII  string. 

\ t* 

Pe  s c r iption 

The  procedure  .C.  ASC  converts  the  BCD  string  defined  by  the 
AED  language  .C.  specification  into  an  ASCII  string  with  pointer  Ascptr. 

A.  Operation:  Ascptr  = . C . ASC(  . C . /s  tring/,  1)  | 

The  . C.  form  of  a string  pointer  is  converted  to  the  . BCI.  format 
and  ASCITC  is  called  to  convert  the  string  to  ASCII.  ASCITC  will  obtain 
memory  for  the  converted  string  by  a call  to  FREE.  If  . C.  ASC  has  a 
second  argument,  all  of  the  characters  in  the  string  will  be  converted  to 
upper  case.  If  the  original  BCD  string  is  not  in  an  overlay  segment,  it  will 
be  returned  to  free  storage  .via  a call  to  FRET. 


B.  Procedures  Calling  , C.  ASC: 

' INXAUT,  INICON,  INIEVL,  IN IF LD,  INIOUT,  INIRNGC  INIRES , 

INIS.  T,  INIVRB,  MON  IN  T,  SAVE  "4 

C.  Procedures  Called  By  , C . AS  C : 

ASCITC,  FRET,  GE^,  INC  1 , ISARGV,  PUT 

D.  COMMON  References: 

None 


E.  Arguments: 

Arg:  Arg  contains  the  address  of  the  beginning  of  the  BCD  string. 

The  word  before  the  beginning  of  the  string  contains  the  length  of  the  string 
in  its  decrement. 

If  lower  case  ASCII  is  desired, the  second  argument  should^not  appear 

F.  Values: 

Ascptr  = ASCII  pointer  to  string 


\ " 
v. 


o 
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G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

146  or  102  _ words 

o iU 

J.  Source: 

AS  CON  ALGOL 


* 
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3. 4. 2. 2 


3.4.  2.  2 INI.C. 

Purpos e 

To  initialize  . C . ASC  - 
D es  c ription 

A.  Operation:  INI.  C . ( ) 

INI.C.  initializes  . C . ASC  by  providing  it  with  the  beginning 
address  of  the  overlay  area.  . C . ASC  will  nonreturn  the  original 
BCD  string  to  free  storage  f it  lies  in  che  overlay  area. 

B.  Procedures  Calling  INI.C.: 

IN  IF  IX 

C.  Procedures  Called  By  INI.C.: 

MAIN  BP 


D.  COMMON  References: 
None 


E.  Arguments: 

None 

y 

F.  Values: 

None  * 


Cr,  Error  Codes: 
None 


H.  Messages: 

None 

\ 

\ ; 

I.  Length: 

7 words 


J.  Source; 

ASCON  ALGOL 


K.  Files  Referenced: 
None 


3 
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3. 4.  2. 3 INTASC 
Purpose 

To  convert  integer  to  ASCII. 

Description 

A.  Operation:  Ascptr  = INTASC  (Integer) 

INTASC  converts  the  binary  number  Integer  to  its  ASCII  equiv- 
alent and  returns  an  ASCII  pointer  Ascptr.  The  ASCII  codes  are  stored  in  an 
array  in  the  subroutine.  INTASC  handles  positive  or  negative  numbers. 

The  magnitude  of  integer  must  be  less  than  100  million. 

B.  Procedures  Calling  INTASC: 

GETFLD,  SEEMAT,  TRANS.  TYPEIT 

C.  Procedures  Called  By  INTASC: 

INC,  PUT 

» 

D.  COMMON  References: 

None 

E.  Arguments: 

Integer:  binary  number  to  be  converted 

F.  Values: 

Ascptr  = ASCII  pointer  to  converted  numbex^ 

i s. 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

133g  or  91^q  words 

J.  Source: 

ASCON  ALGOL 

K.  Files  Referenced: 


None 


3.4.2. 4 


-iti  - 

\ 


3. 4. 2. 4 OCTASC 
Purpose 

To  convert  integer  to  an  octal  ASCII  number. 

Desc  ription 

A.  Operation:  Ascptr  = OCTASC(Int) 

OCTASC  will  convert  the  binary  integer  Int  into  its  octal  equiv- 
alent as  expressed  in  ASCII  digits  . The  ASCII  string,  resides  in  an  array 
within  OCTASC  and  is  pointed  to  by  Ascptr. 


> B. 

Procedures  Calling  OCTASC: 
ERRGO,  LISTEN,  TYPEIT 

C. 

Procedures  Called  By  OCTASC: 
INC,  PUT 

D. 

COMMON  References: 
None 

E. 

Arguments : 

Int:  Positive  or  negative  integer 

F. 

Values : 

Ascptr  = ASCII  pointer  to  octal  number 

G. 

Error  Codes: 
None 

H. 

Messages: 

None 

I. 

Length: 

112g  or  74  j q words 

J. 

Source: 

ASCON  ALGOL 

K. 

Files  Referenced: 

\ 

None 
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3. 4.  2.  5 TSSASC 
Purpose 

To  convert  12-bit  BCD  to  ASCII. 

Description 

\ 

A.  Operation:  Achar  = TSSASC  (Char) 

TSSASC  converts  the  BCD  character  that  it  finds  in  the  right  most 
12  bits  of  Char  to  ASCII  and  returns  this  value  to  Achar,  Char  may  con- 
tain either  a 6-bit  or  a 12-bit  BCD  character.  If  Char  is  not  a BCD  char- 
acter, or  if  it  cannot  be  mapped  into  ASCII,  TSSASC  returns  a zero. 

B.  Procedures  Calling  TSSAfSG: 

AS  C IT  6,  ASCITC,  GET  LIN 

C.  Procedures  Called  By  TSSASC: 

None 

E . Arguments: 

Char:  6-bit  or  12-bit  BCD  character,  right  adjusted 

F.  Values: 

Achar  = an  ASCII  character 

G.  Error  Codes: 

None  - * 

H*  Messages: 

\ 

None 

I.  Length: 

212g  or  138^^  words 

J.  Source: 

CTSS  * 

K*  Files  Referenced: 


4% 

cr. 


None 
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3.4  2.6 


3. 4. 2. 6 A5CTS5 
Purpose 

To  convert  ASCII  to  12-bit  BCD. 

Description: 

A.  Operation:  * Char  = ASCTSS  (Achar) 

ASCTSS  converts  the  ASCII  character  that  it  finds  in  the  right 
most  9 bits  of  Achar  to  its  12 -bit  BCD  equivalent. 

B.  Procedures  Calling  ASCTSS: 

CTSIT6,  TRASH 

C*  Procedures  Called  By  ASCTSS: 

None 

D.  COMMON  References: 

None 

E*  Arguments: 

Achar:  9-bit,  right  adjusted,  ASCII  character 

F.  Values:  ^ 

Char  - 12-bit  BCD  character 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

7 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

r 

None 


0 
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ASCIT6 


3, 4. 2. 7 
Purpose 

To  convert  string  of  6-bit  characters  to  ASCII. 

Description 

A.  Operation-  a 

Ascptr  = ASCIT6(Bcdptr) 

into  a stHnT:  con''e»s  string  ot  6-bit  characters  pointed  to  by  Bcdptr 

aiioc-te  t “PPer  CaSe  ASCU  ^r^rs  pointed  to  by  Ascptr  ASCIT6 

‘I  S‘°rage  f°r  th*  ASC«  string  by  a call  to  FREE  The  cha  a , 

ported  to  by  Bcdptr  are  extracted  one  by  one  (using  GETbl 

ASCII  (using  TSSASC)  and  added  to  the  new  st  ' l converted  to 

«a  to  the  new  string  by  means  of  PUT. 

Procedures  Calling  ASCXT6: 

montor 


c. 


D. 


E. 


F. 

G. 

H. 

X. 


K. 


Procedures  Called  By  ASCXT6: 

FREE,  INC,  XNC6,  PUT,  TSSASC 

COMMON  References: 

None 

Arguments: 

BCdPtr:  r^r^^^«^oI^ngand 

Values : 

Ascptr  = ASCXI  pointer 

Error  Codes: 

None 

Messages:  t <L 

None 
Length: 

104g  or  68jo  words 
Source: 

STRAND  ALGOL 
Files  Referenced: 

None 


3 
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3.4.2. 8 CTSIT6 
Purpose 

. To  convert  .ASCII  string  into  6 -bit  BCD  strings 

Description  / 

— — \ 

A.  Operation:  Bcdptr  = CTSIT6  (Ascptr) 

CTSIT6  converts  the  string  of  ASCII  characters  pointed  to  by 
Ascptr  to  a string  of  6-bit  characters  pointed  to  by  Bcdptr.  CTSIT6 
allocates  storage  for  the  BCD  string  by  a call  to  FREE.  Each  ASCII 
character  is  converted  by  a call  to  ASCTSS.  The  pointer  returned 
contains  the  number  of  characters  in  its  decrement. 


B.  Procedures  Calling  CTSIT6: 

AND.,  CHKNUM,  INFO,  QUIT,  SIGNIN 

C.  Procedures  Called  By  CTSIT6: 

ASCTSS,  FREE,  GET,  INC,  INC6,  PUT 

D.  COMMON  References: 

None 

E.  Arguments: 

Ascptr:  ASCII  pointer 

F.  Values: 

Bcdptr  = 6-bit  BCD  string  pointer 

G.  Error  Cddes: 

None 

H.  Messages: 

None 

I.  Length:  j 

113g  or  75 words  / 

J.  Source: 

STRAND  ALGOL 

K.  Files  Referenced: 

None 


391 
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3. 4.  2. 9 ASCITC 


Purpos  e 

To  convert  6-bit  BCD  string  to  lower-case  ASCII-  -k 

Description 

A.  Operations:  Ascptr  = ASCITC  (Bcdptr) 

ASCITC  functions  the  same  as  ASCIT6,  (see  Section  3-4. 2. 7), 
except  that  the  converted  ASCII  characters  are  usually  lower  case  in- 
stead of  upper.  However,  if  a 6-bit  BCD  character  in  the  string  pointed 
to  by  Bcdptr  is  preceded  by  a $,  the  character  is- converted  to  uppercase 

B.  Procedures  Calling  ASCITC: 

BCDASC,  LOCMES,  PREP,  .C.ASC 

C.  Procedures  Called  By  ASCITC: 

TREE,  FRET,  GET6,  INC,  INC6,  PUT,  T3SASC 

D.  COMMON  References: 

None 

E.  Arguments: 

Bcdptr:  6 -bit  BCD  string  pointer 

F.  Values: 

Ascptr  = ASCII  pointer 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

154g  or  1 08  j q words 

J.  Source: 

STRAND  ALGOL 

K.  Files  Referenced: 

None 
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3. 4. 2.  10 


3.4.2.10  ASCINT 
Purpose 

To  convert  ASCII  number  to  binary. 
Description 

A.  Operation:  Val  = ASCINT  (Ptr) 


ASCINT  converts  the  ASCII-coded  number  pointed  to  by  Ptr  to 


a binary  number.  ASCINT  calls  CHKNUM  to  check  for  the  lettersi?!  and 

o. 

If  ASCINT  finds  a non-numerical  character,  it 

returns  a value  of  - 1 . 

B. 

Procedures  Calling  ASCINT: 

- 

CALLIT,  IN.,  NUMBER,  OUT.,  RANGE, 

TABLE 

c. 

Procedures  Called  By  ASCINT: 
CHKNUM,  GET,  INC 

D. 

COMMON  References: 
None 

E. 

Arguments : 

Ptr:  pointer  to  number  expressed  in  ASCII 

F. 

Values : 

Val  = binary  number. 

G. 

Error  Codes: 

Val  =-l:  bad  argument  ■ ^ 

H. 

Messages: 

None 

I. 

Leng  th: 

171g  or  121^q  words 

J. 

Source: 

ASCINT  ALGOL 

K. 

Files  Referenced: 
None 

-• 

0 
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3.4.2.11  CHKNUM 


Purpose 

To  check  for  f’s  and  O's. 


Des  cription 

A.  Operation:  CHKNUM(Ptr) 

CHKNUM  checks  the  ASCII-coded  number  pointed  to  by  Ptr  for 
the  presence  of  non-numerical  characters.  If  the  character  is  the  letter 
O or  f it  prints  an  error  message.  If  the  character  is  some  other  letter, 
CHKNUM  returns  to  the  calling  program. 

B.  Procedures  Calling  CHKNUM: 

ASCINT,  CALLIT,  INFO 

C.  Procedures  Called  by  CHKNUM: 

GET,  INC  1,  PUT,  TYPEIT 

D.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  ASCII  pointer  to  number 

F.  Values: 

None 


G.  Error  Codes: 


H. 


None 

/ 

Messages: 

‘ J 

I.  "You  have  typed  the  letter  J.  in  pla,ce  of  a one  ( I ) in  the  command 
argument  A.  Your  command  will  be  processed  as  if  a Jl  had 
been  typed.  Please  observe  this  distinction.  Failure  to  do  so 
may  cause  matching  difficulties."  ($loerr2$,  $loerrO/l$, 
$loerr3$,  $loerr4$,  $loerr5$,  $loerr6$) 


I. 

J. 


Length: 

I66n  or  118 


words 


,g  ...  —io 

Source. 

CHKNUM  ALGOL 


Files  Referenced: 


None 
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3.4.3. 1 


3,4.3  File  Manipulation 
314.3.1  FILCNT 


Purpose 

Tp  give  length  of  file. 
x-6escription 

A.  Operation:  Len  = FILCNT  (Name  1,  NameZ) 

FILCNT  calls  FSTATE  to  find  the  length  of  a file.  If  the  file  can- 
not be  found,  FILCNT  returns  a -1  instead  of  the  length. 

B.  Procedures  Calling  FILCNT: 

chksav,  cleanp,  condir,  connam,  getlW  IFSINT, 

INIRES,  LISFIL,  LISTSL,  PREP,  REND,  TABLEx 

I 

C.  Procedures  Called  By  FILCNT:  \ 

FSTATE 

D.  COMMON  References: 

None 

E.  Arguments: 

Namel,  NameZ:  name  of  file  (6-bit  BCD) 

F.  Values: 

/ 

Len  - length  of  file  in  words 

G.  Error  Codes: 

Len  = -1:  file  not  found 

H.  Messages:  ' 

None 

I.  Length: 


52g  or  42^q  words 


J.  Source: 

AEDLBJ  BSS 


O 
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K.  Files  Referenced: 

comand  table 

FIELDS  TABLE 
ENDING  TEST 2 
HOLD  UP 
HOLD  IT 
IFDS'  date 
, IF  DA  date  - 
DUMnnn  FILE 
NAMnnn  FILE 
PASnnn  FILE 
nam^  SAVED 
SAVED  DIRECT 


J 
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3.4.4  Character-String  Manipulation 
3.4.4,  1 GET 
Purpos e 


To  get  ASCII  character. 


Des  c ription 

A.  Operation:  Char  = GET(Ascptr) 

GET  will  extract  the  9-bit  ASCII  character  pointed  to  by  Ascptr 
and  set  the  cfontents  of  Char  to  this  value. 

B.  Procedures  Calling  GET: 

ASCINT,  AUTHOR,  CHKNUM,  COMPAR,  COMPUL, 

CTSIT,  / CTSITC,  FIND,  GET  LIN,  IFSRCH,  IN..,  NAM5,  NEXITM, 
PUT.,  SIGNIN,  STEM,  TABLK,  TYPEIT , . C.ASC 

C.  Procedures  Called  By  GET: 

D.  COMMON  References:  \ 

None 

E.  Arguments: 

Ascptr:  ASCII  pointer  to  character  string 

F.  Values: 

Char  = right- adjusted  9-bit  character  pointed  to  by  Ascptr 

G.  Error  Codes:  , v 

None 

H.  Messages: 

None 

I.  Length: 

or  24^  words 

J.  Source: 

GET  FAP 


K.  Files  Referenced: 
None 


f 

O 
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3 . 4.  4.  2 INC 


Purpose 


To  increment  pointer. 

Description 

A.  Operation:  INC(Ascptr,  Shift) 

INC  adjusts  the  ASCII  pointer  Ascptr  by  the  amount  (f  or  - ) 
specified  by  Shift.  The  decrement  of  Ascptr  is  left  unchanged. 

B.  Procedures  Calling  INC: 

ASCINT,  ASCIT,  ASCIT6,  ASCITC,  CTSIT,  CTSITo,  EVAL, 
FSO,  GETFLD,  GETLIN,  INTASC,  MATCH,  NEXITM,  OCTASC 
SEEMAT,  SPCTRN,  STEM,  TABLE,  TABLE,  TRANS,  TRASH, 
TYPEIT. 


C.  Procedures  Called  By  INC: 

None 

D.  COMMON  References: 

None 


E..  Arguments: 

As  cptr : 
Shift: 


ASCII  pointer  tto  character  string 

number  of  bytes  by  which  Ascptr  is  to  be  adjusted 
(+  or  - , binary) 


F. 


V alues: 
None 


G.  £>  ror  Codes: 
None 


H.  Messages: 
None 


I. 

J. 


Length: 

27  j q or  33g  words 

Source: 

INC  FAP 
Files  Referenced: 

None 


\ 
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3. 4.  4.  3 


3.4.4.  3 PUT 
Purpose 

To  insert  ASCII  character. 


Des  c ription 

A.  Operation:  PUT(Char,  Ascptr) 

PUT  will  insert  the  rightmost  nine  bits  of  Char  in  the  byte  loca 
tion  indicated  by  Ascptr. 

B.  Procedures  Calling  PUT: 

ASCIT,  ASCIT6,  CA^ASC,  CHKNUM , EVA  L,  GETFLD, 
GETLIN,  INTASC,  tN.  , NEXITM,  OCTASC,  OUT.,  SEEMAT, 
SIGNIN,  TABLE,  T&ANS,  .C.ASC 

/'  - 

C.  Procedures  Called  By  PUT: 

None 

/ 

D.  COMM0N  References:  L 

/ * 

Nwfe  

% 

E.  Arguments: 

Char:  9-bit  ASCII  character  to  be  inserted 

Ascpt|*  : ASCII  pointer  to  byte  position  to  be  filled  by  "Char11. 

F.  Value  sir- 

No  ne  — 


G.  Error  Codes: 

None 

H.  Messaged: 

None 

I.  Length: 

or  3 1^  words 


\* 


Source: 

PUT  FAP 

K.  Files  Referenced: 
None 
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3. 4. 4. 4 GET  6 


Purpos e 

To  get  6-bit  chai^cter. 


Des  c ription 


A.  Operation: 


Char  ss  GET6(Ptr) 


GET6  extracts  a 6 -bit  BCD  character  pointer  to  by  the  BCD  pointer 
Ptr  and  return  it  as  the  value  of  Char. 

B.  Procedures  Calling  GET6: 

ASCITC,  ASCIT6,  PREP 

C.  Procedures  Called  By  GET 6 : 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  address  = location  of  beginning  of  BCD  string 

tag  = first  byte  position  (0-5) 
dec  - einent  = length  of  string  in  bytes 

F.  Values: 

Char  = 6-bit  character,  righ^  adjusted 

G.  Error  Codes: 

None 

H.  Mesf  iges: 

- None 

I.  length: 


J.  jource: 


GET6  FAP 


K.  Files  Referenced: 

None/ 


ERIC 
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3.4. 4 . o 


3. 4. 4.  5 INC 6 
Purpos  e 

To  increment  BCD  pointer, 

Des  c ription 

A.  Operation:  INC6(Ptr,  Count) 

INC6  inc  remenu  Ptr  by  the  number  of  bytes  specified  in  Count. 
If  Count  is  negative,  the  pointer  is  backed  up. 

B.  Procedures  Calling  INC6: 

ASCITC,  ASCIT6,  PREP,  TRASH 

C.  Procedures  Called  By  INC6: 

None 

D.  COMMON  References: 

None 

E . Arguments: 

Ptr:  6-bit  BoD  pointer 

Count:  number  of  6-bit  bytes  by  which  Ptr  is  modified 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

72g  or  58Tq  words 

J.  Source:  " ^ 

INC  6 FAP 

K.  Files  Referenced  - 


O 


None 


3. 4. 4.  6 
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3. 4. 4. 6 PUT6 


Purpose 

To  insert  6-bit  character. 


Des  c ription 
A.  Op  e rati  on: 


PUT6  (Char,  Ptr) 


PUT 6 puts  the  right-m^  0 bits  of  Char  in  the  byte  position  in- 


dicated by  Ptr. 

33.  Procedures  Calling  PUT6: 

CTSIT6 , PREP,  TRASH 

C.  Procedures  Called  By  PUT6 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Char:  6-bit  data  element,  right  adjusted 

Ptr:  pointer  to  BCD  string 

F.  Values: 

None 

G.  Error  C des: 

None 

H.  Messages: 

N one 

I.  Length: 

29  IQ  or  35^  words 

J.  Source: 

PUT6  FAP 

K-  Files  Referenced: 


ERIC 


40 


None 
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3.  4. 4. 7 


3. 4. 4. 7 GET  1 2 


Purpos  e 

To  get  12 -bit  byte. 

Des  c ription 

A.  Operation:  Char  - GETl2(Ptr) 

GET  12  extracts  the  12-bit  BCD  character  pointed  to  by  Ptr 
returns  it  as  the  value  of  Char, 

3.  Procedures  Calling  GET12: 

GET  BIN 

C . Proce du res  Called  By  GET12: 

None 

D.  COMMON  References: 

None 

E,  Arguments: 

Ptr:  pointer  to  12 -bit  character  string 

F,  Values: 

Char  = 12 -bit  right  adjusted  character 

G.  Error  Codes: 

None 

H*  Messages: 

None  ^ 

I.  Length: 

50g  or  words 

J.  Source: 

STR1X2  ALGOL 

K.  Files  Referenced: 

None 

i 


s' 


40  3 > 
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0 . *4  » 4 - 8 

INC  12 

Purpose 

To  adjust 

12-bit  13 C D pointer. 

Desc  ription 

A.  Operation;  INC12(Ptr,  Shifty 

INC  12  adjusts  the  pointer  Ptr  by  the 
specified  by  Shift*  The  decrement  of  P*  ^ is 

positive  or  negative  quantity 
left  unchanged. 

B. 

Procedures  Calling  INC12: 
GETLIN 

C. 

Procedures  Galled  Bv  INC12: 
None 

D. 

COMMON  Re  fa  re  races  : 
Is  one 

E. 

A rguments : 

Ptr:  12-bit  BCD  pointer  (u  tag 

Shift:  positive  or  negative  integer 

2) 

F. 

V alues : 
None 

G. 

Grror  Codes: 
None 

H. 

Mes  s ages: 
None 

I. 

Length: 

175  or  125iri  words 

o 1 U 

- 

J . 

Source: 

STRIX2  / LOO  L 

K. 

Piles  Refe  renced: 
None 

404 
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3.4.4.? 


3,  4. 4,  9 COPY 
Purpos  e 

To  copy  ASCII  string* 

De s c ription 

A.  Operation:  COP  Y(  As  cptr  1 , AscptrZ) 

COPY  takes  the  ASCII  string  defined  by  ASCPTR1  ^nd  copies  it 
into  the  area  which  begins  at  the  locations  pointed  to  by  Ascptr2.  It  is 
not  necessary  to  specify  a length  in  Ascptr2  (in  other  words,  you  could 
overflow  your  target  area). 

B.  Procedures  Calling  COPY: 

A.  Called  by:  AUTHOR,  E7AL,  CTTEND,  GETFLD,  IN., HEX  IT M, 

SEEMAT.  STEM,  S.T.,  TABLE,  TRANS,  ± YPEIT 

Procedures  Called  By  COPY: 

None 

COMMON  Ref e rences  : 

None 

Arguments: 

Ascptrl : ASCII  pointer  to  string  to  be  copied 

AscptrZ:  ASCII  pointer  to^rea  which  will  receive  cop^r 

V alues  : 

None 

Error  Codes: 

None 

Me s s ages  : 

No  no 

Leng  th: 

1 1 ,10  or  1628 

Sourc  e : 

COPY  FAP 
Files  Referenced: 

None 


40o 


c. 

D. 

E. 

F. 

G. 

H. 

I. 

J. 

Ck. 

o 

ERIC 
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3,4, 4 . i0  DIST 

/ 

Purpos e # 

To  compute  length  of  string  in  bytes. 

Desc  ription 

A.  Operation:  Count  = DIST(  As  cptr  1 , AscptrZ) 

DLST  counts  the  number  of  characters  in  an  ASCII  string  and 
returns  this  value  to  Count.  The  string  is  defined  by  vscptrl,  which 
points  to  the  first  character,  and  TscptrZ,  which  points  to  the  last 
character.  The  count  includes  the  xirst  and  last  characters. 

B.  Procedures  Calling  DIST: 

EVAL,  FSO,  SFCTRN 

C.  Procedures  Called  By  DIST: 

None 

D„  COMMON  References: 

None 

E„  Arguments: 

Ascptrl,  AscptrZ:  ASCII  pointers 

F.  Values:  k • 

\ 

Count  = inclusive  count  of  bytes  between  the  two  pointers 

G.  Error  Codes: 

None  J 

H.  Messages: 

None 

I.  Length: 

3 0,  - or  36 0 words 
l O o 

J.  Source: 

DLST  FAP 

K.  Files  Referenced: 

None 
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3. 4 


4.11 


FIND 


Purpos  e 

To  scan  for  delimiter 
Description 

A.  Operation:  Ftr  = FIND  (Delim,  Strptr) 

FIND  looks  for  delimiters  pointed  to  by  the  ASCII  pointer  Delim 
by  scanning  the  ASCII  string  defined  by  Strptr.  Jf  FIN  13  does  not  find  any 
of  the  specified  delimiters  in  the  string,  it  returns  a zero.  Otherwise  FIND 
returns  a pointer  to  the  first  delimiter  that  it  encounters.  The  decrement 
of  this  pointer  contains  the  length  of  the  remainder  of  the  string  from  this 
point. 


B. 

Procedures  Calling  FIND: 

NEXITM,  SPCTRN 

C. 

Procedures  Called  By  FIND: 
GET,  INC  1 

D. 

COMMON  References: 
None 

E. 

Arguments  : 

Delim:  ASCII  pointer  to.  a 

as  delimiters. 

string 

Strptr:  ASCII  pointer  to  a 

string 

F. 

V alues : 

Ptr  = pointer  to  substring 

of  sea: 

occurance  of  a delimiter 

G. 

Error  Codes: 
None 

H. 

Messages: 

None 

I. 

Length: 

1 08g  or  7Z10  words 

J. 

S ourc  e : 

MATCH  ALGOL 

K. 

Files  Referenced: 
None 

3 

ERIC 
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3.4.4. 12 


COMPAR 


Purpose 

/ 

To  compare  ASCII  strings. 

Description  ‘ . X 

A.  Operation:  COMPAR(As  cptr  1 , Ascptr2,  Charg?  Hi,  Low  a Equal) 

COMPAR  will  compare  the  string  pointed  to  by  As  cptr  1,  with  the 
string  pointed  to  by  Ascptr2;  If,  after  comparing  the  number  of  char- 
acters specified  in  Chars,  no  inequality  has  been  discovered,  COMPAR 
will  return  by  transferring  to  the  label  Equal.  Otherwise,  COMPAR  will 
transfer  to  Hi  or  Low,  depending  on  whether  the  first  non- matching  char- 
acter in  the  string  pointed  to  by  Ascptrl  is  high  or  low  relative  to  the  cor 
responding  character  in  the  other  string. 


B.  Procedures  Calling  COMPAR: 

SPCTRN,  TABLK 

C.  Procedures  Called  By  COMPAR: 

GET,  INC  1 — 

D.  .COMMON  References: 

None  - • 

\ 

E.  Arguments: 

Ascptrl:  pointer  to  the  comparison  ASCII  string.  This  string  is 

high,  low  or  equal  relative  to  the  string  pointed  to  by 
Ascptr2.  \ 

Ascptrl:  pointer  to  ASCII  string  to  which  first  string  compared. 

Chars:  number  of  characters  from  each  string  to  be  Compared. 

Hi:  If  the  first  character  in  Ascptrl  which  is  not  equal  to 

As cptr2  is  greater,  . then  this  exit  is  taken. 

Low:  Exit  if  first  string  is  low.  . 

Equal:  First  Chars  characters  of  both  strings  are  equal  if  this 

exit  is  taken. 


Values : 
None 


403 


I 

\ 
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■3.4.4.12 


G.  Error  Codes: 

None 

H.  Messages: 

None  ^ 

f 

I.  Length: 

57Q  or  words 

J.  Source: 

MATCH  ALGOL 

K.  Files  Referenced: 

None 


V 


f 


o 


' -T 
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3.4.  4.  13 


COMPUL 


Purpose  , * 

To  compare  strings,  ignoring  c^se  differences. 


Description 


A.  .Operation:  COMPUL  (Ascptrl,  Ascptr2,  Chars,  Hi,  Low,  Equal) 

COMPUL  compares  twc?  ASCII  strings  in  exactly  the  same  way  that 
COMPARdoes,  except  that  it  ignores  case  differences . 


- B.  Procedures  Calling  COMPUL: 

IFSRCH,  MONTOR,  OUT.  , SPCTRN,  RANGE,  TABLK,  TIME 

C.  Procedures  Called.  By  COMPUL: 

GET,  INC  1 


D.  COMMON  References: 
None 


E.  Arguments:  - 

See  description  qf  COls/UPAR  (Section  ,3 . 4. 4.  12) 

F.  Values: 

None 

G.  Error  Codes: — : 

None 

H.  Messages: 

None  c 

« V 

I.  Length:  . 

6lg  or  49 10  words 


J.  Source,: 

MATCH  ALGOL 

J 

K.  Files  Referenced: 

None 


■\ 
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3.4.4. 14 


3.4.4.14  MATCH 

— — % 

Purpose 

To  find  substring. 

Description  / 

A.  Operation:  P^x  = MATCH(Short,  Long,  Mode) 

MATCH  looks  for  the  ASCII  string  Short  within  the  ASCII  string 
Long.  If  it  finds  a match,  it  will  return  a pointer  to  the  first  matching 
character.  The  decrement  of  this  pointer  wilPindicate  how  many  char- 
acters the  substring  is  from  the  beginning  of  the  string  pointed  to  by  Long 
If  there  is  no  match,  or  if  short  is  longer  than  long,  a value  of  0 is  , re- 
turned. If  the  Mode  is  zero  case  differences  will  be  considered,  but  not 
if  the  Mode  is  1. 

B.  Procedures  Calling  MATCH: 

FSO 

C.  Procedures  Called  By  MATCH: 

COMPARE,  CGMPUL,  INC 

D.  COMMON  References: 

None  r 

E.  Arguments: 

Short:  ASCII  pointer  to  the  substring  being  searched  for 
Long:  ASCII  pointer  to  the  string  being  searched. 

Mode:  If  0,  consider  case  differences,  but  if  1,  ignore  cases. 

F . Va  lue  s : i 

Ptr  = ASCII  pointer  to  substring  yvithinj  string  Long. 

If  the  decrement  of  Ptr  is  n,  the  substring  begins 
with  the\  nth  character  of  Lpng. 

G.  Error  Codes: 

Code  = 0:  substring  not  found 

H.  Messages: 

None 


411 
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I.  Length: 

156g  or  IIOjq  words 

_ < 

J.  Source: 

MATCH  ALGOL 

K.  Files  Referenced: 

None 

J 

\ 


1 
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.4 


3.4,4.  15  GETSET 


Purpose 

To  set  up  pointer  for  GETINC  and  SETINC. 


Desc  ription 

The  GETINC  package  provides  a means  of  sequentially  processing 
a string  of  ASCII  characters  with  slightly  greater  economy  than  by  using 
the  routines  GET,  INC  and  PUT. 

A.  Operation:  GETSET  (Ascptr,  Newptr) 

GETSET  takes  the  ASCII  pointer  Ascptr  and  creates  a pointer, 
Newptr,  which  can  be  used  by  GETINC  and  PUT INC. 

B.  Procedures  Calling  GETSET: 

GETFLD 

C.  Procedures  Called  By  GETSET: 

None 

D.  COMMON  References: 

None 


E.  Arguments: 

Ascptr:  ASCII  pointer 

Newptr:  address  portion  = location  of  beginning  of  string 


Tag 

Portion: 

Decrement 

Portion: 


= 0 


expression  of  byte  position  in  terms  of  number  of 
bits  from  right  end  of  word. 


byte  0 
byte  1 
byte  2 
byte  3 


27 

18 

9 

0 


Values: 

None 


Error  Codes : 
None- 
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-398 


H.  Messages: 

None 

•f 

I.  Length: 

16jq  or  20g  words 

J . Source: 

GET  INC  FAP 

K.  Files  Referenced: 

None 


i 


O 

ERIC 
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3.4.  4.  16 


3.4.4,16  GET  INC 
Purpose 

To  get  character  and  increment  pointer. 

Desc  ription 

A.  Operation:  Char  = GETINC  (Newptr) 

GETINC  extracts  the  character  (9-bit  ASCII)  pointed  to  by  the 

J 

special  pointer  Newptr  and  returns  this  character  as  its  value.  At  the 
same  time,  Newptr  is  incremented  by  1 byte. 

B.  Procedures  Calling  GETINC: 

GETFLD 

C.  Procedures  Called  By  GETINC: 

None 

D*  COMMON  References: 

None 

E.  Arguments: 

Newptr:  special  pointer  (see  description  of  GETSET) 

F*  Values: 

Char  = ASCII  (9-bit)  character 

G*  Error  Codes: 

None 

H.  Messages: 

None 

I#  Length: 

220  or  18in  words 
o 1 U 

J.  Source: 

GETINC  FAP 

K.  Files  Referenced: 

None 
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3.4.4.  17  PUTINC 


Purpose 

To  insert  character  and  increment  pointer. 


Description 

A.  Operation: 


PUT  INC  (Char,  Newptr) 


PUTINC  stores  the  9-bit  ASCII  character  on  the  right-hand  side 
of  Char  in  the  byte  pointed  to  by  Newptr. 

B.  Procedures  Calling  PUTINC: 

GETFLD 

C.  Procedures  Called  By  PUTINC: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Char:  9-bit  ASCII  character 

Newptr:  special  pointer  (see  description  of  GETSET) 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 


34g  or  28  jq  words 


J.  Source 

PUTINC  FAP 


K.  Files  Referenced: 


ERIC 


None 
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3 . 4.4. 18 


3.4.4.  18  INC  1 


Purpose 

To  increment  ASCII  pointer  one  byte. 


Description 


A.  Operation: 


INC  1(  Ascptr) 


Af  cptr  is  incremented  by  one  byte. 

B.  Procedures  Calling  INCl: 

CAPASC , CHKNUM,  COMPAR,  COMPUL,  DROP,  FIND,  FSO, 
GETFLD,  IN.,  NAME,  NEXITM,  OiJT.,  SEEMAT,  TABLE, 
TRANS,  TYPEIT , .C.ASC 

C.  Procedures  Called  By  INCl: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Ascptr:  ASCII  pointer 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 


14jq  or  l6g  word 


J.  Source: 

. INCl  F AP 


K.  Files  Referenced: 


None 


ERIC 


3.4.4. 19 


-402- 


3.4.4.  19  DEC1 
Purpos  e 

To  decrement  ASCII  pointer  by  one  byte. 

* Description 

A.  Operation;  DECl(Ascptr) 

Ascptr  is  backed  up  one  byte. 

B.  Procedures  Calling  DEC1: 

NEXITM,  STEM,  TRANS,  TYPEIT 

C.  Procedures  Called  By  DEC  1; 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Ascptr:  ASCII  pointer 

F.  Values: 

None 

G.  Error  Cpdes: 

None 

H.  Messages: 

None 

I.  Length: 

1810  °r  228  wo:rds 

\ ' 

J.  Source: 

DEC 1 FAP 

K.  Files  Referenced: 

None 
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3.4.  5.  1 


3.4.  5 Miscallaneous  Utilities 
3.4.5. 1 DNSQRT 

Purpose 

/ 

To  sort  in  descending  order. 

/ 

f 

Description 

DNSORT  is  a special-purpose  version  cf  the  general-purpose  ex- 
change sort  XSORT.  DNSORT  sorts  a list  of  words  in  place,  using  the 
right-most  15  bits  as  a key. 

A.  Operation:  1 Ptr  = DNSORT(Ptr) 

DNSORT  is  called  by  NUMBER  to  sort  in  descending  order  a list 
of  wo rds  -pointed  to  by  Ptr.  These  words  contain  document  numbers  that 
users  have  typed  in  the  address  portion  of  each  word.  Using  these  bits  as 
a key,  the  sort  proceeds  by  finding  the  highest  document  number  for  the 
first  word  of  the  array.  Then,  it  fitids  the  second-highest  number  for  the 
next  position,  and  so  on.  If  the  pointer  Ptr  has  a zero  decrement,  DNSORT 
will  return  a ^1.  Otherwise,  DNSORT  returns  Ptr  as  its  value. 

B.  Procedures  Galling  DNSORT: 

NUMBER  (via  CALLIT)  / 

C.  Procedures  Called  By  DNSORT: 

None  ! 

D.  COMMON  References: 

None 

E.  Arguments: 

Ptr:  word  pointer  to  array 

F.  Values: 

Ptr  = word  pointer  to  sorted  list  (identical  to  Ptr  used  as  argument) 

G.  Error  Codes: 

\ Ptr  =-l:  zero  length  list 


419 


H.  Messages: 
None 

© / 

ERIC/ 
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I.  Length: 

62g  or  words 

J.  Source: 

DNSORT  FAP 

K.  Files  Referenced: 

None 


■ ,/ 
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3.4.  5.2 


3.  4. 5. 2 FAPDBG 
Purpose 

To  debug  system. 
Description 


J 


A.  Operation:  FAPDBG(  ) 

FAPDBG  is  an  extensive  debugging  subroutine.  It  enables  a user 
to  examine  core  locations  and  to  change  their  values.  In  addition,  it  en- 
ables a user  to  set  a breakpoint  and  start  execution  of  his  procedure  at 
any  point  that  he  chooses.  Finally,  if  the  user  specifies  a symbol  table. 
FAPDBG  will  reference  core  locations  in  terms  of  their  symbolic  ad- 
dresses rather  than  their  absolute  core  locations. 

FAPDBG  i^s  evoked  by  typing  the  Intrex  command  f,fapdbgn  or 
Because  the  Intrex  system  is  currently  fairly  stable,  FAPDBG  is  not  r - rt 
of  the  present  system.  If  extensive  changes  are  made  to  the  system  in  the 
future,  it  will  probably  be  practical  to  re-include  this  large  (5384  wore  ) 
package. 

B.  Procedures  Calling  FAPDBG: 

CLP  (via  CALLIT) 


C.  Procedures  Called  By  FAPDBG: 

None 

D.  COMMON  References: 

None 

E . A r g um  e i;  ts : 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None  j 


3. 4. 5. 2 -406- 

I.  Length: 

12,400g  or  5384^q  words 

J.  Source: 

TSLTBZ  BSS 

K.  Files  Referenced: 

Name  SYMTB 


0 


42#s 


ir 


-407  - 


t 


3. 4. 5. 3 


^.4.5.3  nap 


Purpose 
To  call  SLEEP 


Description 

A.  Operation:  NAP(Time) 

NAP  calls  SLEEP  (Section  3.  5.7.2)  with  the  argument  (number 
of  seconds  to  sleep)  set  up  in  the  accumulator. 

B.  Procedures  Calling  NAP: 

GET  LIN 

C.  Procedures  Called  By  NAP: 

SLEEP 

D.  COMMON  References: 

None 

E.  Arguments: 

Time:  lumber  of  seconds  that  program  will  be  asleep 

F.  Values: 

None  ' 

G.  Error  Codes:  \ 

None 

H.  Messages: 

None  \ 

I.  Length: 

13^q  or  15g  words 

J.  Source: 

UTILIB 

K.  Files  Referenced: 


None 


3.4.  5.4 
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3.  4.  5, 4 TBSRCH 
Purpose 

To  search  a table  for  a key 
Description 

A.  Operation:  Ptr  = TBSRCH(Key,  Table,  Length) 

The  procedure  TBSRCH  is  used  to  search  a table  that  contains  one 
computer  word  per  entry.  If  The  "Key"  is  found  in  "Table",  then  "Ptr" 
will  point  to  the  word  which  matched  exactly  on  "Key".  If  no  match  is 
found,  "Ptr"  will  be  set  to  zero. 

The  last  entry  in  the  table  must  be  a fence  of  binary  ones. 

B.  Procedures  Catling  TBSRCH: 

NEXITM 

C.  Procedures  Called  By  TBSRCH: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Key:  item  (1  word)  being  searched  for. 

Table:  beginning  location  of  table. 

Length:  length  of  table  in  wc  rds . 

" F.  V alues : 

Ptr  = pointer  to  word  in  table  which  matched 

G.  Error  Codes: 

Ptr  = 0:  Key  not  found  ir  table 

H.  Messages: 

None 

I.  Length: 

36g  or  30^q  words 

J.  Source: 

SRCH  FAP 
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3.4.  5.  5 


3.4.  5.  5 VSRCH 
Purpos e 

To  search  table  with  multi-word  entries. 

Prescription 

A.  Operation:  Ptr  = VSRCH(Key,‘  Table,  Length,  N) 

The  procedure  VSRCH  is  used  to  scan  a table  pointed  to  by  Table 
for  a word  with  the  value  of  Key.  Each  entry  in  the  table  may  be  N 
words  long.  However,  VSRCH  only  examines  the  first'word  of  each 
entry  in  searching  for  the  key. 

If  the  first  word  of  an  entry  matches  Key,  VSRCH  will  return  a 
pointer  to  this  word.  If  the  Key  is  not  found,  VSRCH  will  return  a value 
of  zero. 

B.  Procedures  Calling  VSRCH: 

LOOKUP,  STEM 

C.  Procedures  Called  By  VSJK.GH: 

None 

D.  COMMON  References; 

None 

E.  Arguments: 

Key:  item  for  which  table  is  scanned 

Thble:  beginning  location  of  table 

Length:  number  of  entries  in  table 

N;  number  of  computer  words- per  entry 


G. 


H. 


Values : 
Ptr  = 


pointer  to  word  in  table  which  matched  with  key. 


Error  Codes: 

Ptr  = 0:  Key  not  found  in  table 

Messages:  • 

None 


3 

ERIC 


k 
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I. 


Length: 


508 


or  40^q  words 


J.  Source: 

SRCH  FAP 


K. 


Files  Referenced: 
None 


i 


v 


426 


3. 4.  5.  6 SHIFT 


Purpose 

To  shift  array  left  nine  bits. 

Description 

A.  Operation:  SHIFT  (Array) 

The  orocedure  SHIFT  will  shift  the  contents  of  the  3 
beginning  at  location  Array  nine  bits  to  the  left. 

B.  Procedures  Calling  SHIFT: 

STEM 

C.  Procedures  Called  By  SHIFT: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Array:  beginning  location  of  3-word  array 

F.  Values:  t 

None 

G.  Error  Codes:  * 

None 

H.  Messages: 

None 

I.  Length:  , 

13jq  or  15g  words 

J.  Source 

SHIFT  FAP 

K.  Files  Referenced: 

None 


42^* 
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3. 4.  5. 7 5TRACC,  PRSTRA 
Purpose 

STRACC:  To  initialize  tracing  mechanism. 

PRSTRA:  To  write  out  results  of  trace. 

Description 

A.  Operation:  STRACC(  ),  PRSTRA(  ) 

STRACC  is  called  as  part  of  the  system  generation  process . It 
examines  each  word  of  core,  looking  for  the  TTR  instructions  which  is 
used  in  the  CTSS  environment  as  a transfer  vector.  If  it  finds  a TTR, 
and  if  it  find  a TSX  instruction  which  points  to  the  TTR  and  if  the  TTR 
points  to  a reasonable  location,  the  TTR  instruction  is  replaced  by  an  in- 
struction of  the  form  TXH  Trac,  0,  Proc.  The  instruction  TXH  has  the 
same  effect  as  a simple  transfer  when  the  tag  is  zero.  "TRAC"  is  the 
entry  point  of  a trace  routine  and  Proc  is  the  transfer  location  of  the  TTR. 
During  execution  of  Intrex,  transfers  to  subroutines  will  automat- 

f- 

ically  result  in  transfers  to  the  trace  procedure  TRAC.  TRAC  searches 
and  internal  table  for  the  value  Proc.  If  Proc  is  already  in  the  table,  the 
covfnt  is  incremented  by  I in  that  slot.  If  Proc  is  not  in  the  table,  it  is 
added.  ^ 

At  some  point  the  procedure  PRSTRA  may  be  called.  PRSTRA 
writes  the  table  used  by  TRAC  in  a file  called  TRACY  TABS. 

The  user  may  obtain  a useful  printout  of  the  data  in  TRACY  TABS 
by  using  the  stand-alone  program  TROUT. 

B.  Procedures  Calling  STRACC,  PRSTRA: 

STRACC:  SEGINT 

PRSTRA:  undetermined 

C.  Procedures  Called  By  STRACC,  PRSTRA: 

STRACC:  GETMEM,  TSPOT 

PRSTRA:  CLOSE,  OPEN,  WRWAIT 

D.  COMMON  References: 


3 

ERIC 


\ 


423., 


None 
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3.  4. 5. 7 


E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 


STRACC: 

25010 

or  372g 

worus 

PRSTRA: 

1510 

or  178 

words 

J.  Source: 

STRACE  ALGOL 


K.  Files  Referenced: 

STRACC:  None 

PRSTRA:  TRACY  TABS 


3,4.  5.  8 
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3. 4.  5.  8 TEST  MO 
To  test  for  minus  zero 
Description 

A.  Operation:  Bool  = TESTMO(Val) 

If  the  36 -bit  word  Val  has  a one  bit  in  the  left-most  position  and 
zeroes  elsewhere,  TESTMO  returns  a value  of  TRUE.  Otherwise,  its 
value  is  FALSE. 


B. 

Procedures  Calling  TESTMO: 
TYPEIT 

C. 

Procedures  Called  By  TESTMO: 
None 

D. 

COMMON  References : 
None 

E. 

Arguments: 

Val:  value  to  be  tested 

F. 

Values : 

Bool  = TRUE  if  -0,  FALSE  othe 

G. 

Error  Codes: 
None 

H. 

Messages : 
None/ 

I. 

J 

Length: 

25g  or  21  jq  words 

J. 

Source: 

TESTMO  ALGOL 

K. 

Files  Referenced: 

None 

ERIC 

430 
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3.  4.  5.  9 


3,4,5. 9 TSPOT,  TRAC 
Purpos  e 

To  TRACe  subroutine  calls. 


Description 

A.  Operation:  TRAC(  ),  Loc  = TSPOT(  ) 

TRAC  is  used  to  trace  subroutine  calls  within  the  Intrex  system. 

As  a part  of  system  generation  STRACC  (see  Section  3. 4. 5.  7)  replaces 
all  of  the  transfer  vectors  with  an  instruction  of  the  form  "TXH  TRAC,  O, 
PROC.1'  When  procedure  Proc  is  called,  the  TXH  instruction  transfers 
control  to  the  entry  point  TRAC.  TRAO^  looks  up  entry  point  Proc  in  its 
table.  If  it  finds  it,  TRAC  updates  th^  tount  field  for  that  entry^  by  one. 
Otherwise,  TRAC  creates  a new  entry  in  the  table  for  Proc.  TRAC  then 
transfers  to  Proc. 

TSPOT  is  used  to  communicate  between  the  subroutines  TRAC, 
STRACC,  and  PRSTRA.  TSPOT  provides  STRACC  with  the  entry  point 
to  TRAC,  which  STRACC  uses  in  generating  TXH  instructions.  The  core 
location  immediately  above  the  entry  point  TRAC  contains  the  location  of 
the  table  used  by  TRAC.  PRSTRA  (see  Section  3. 4.  5. 2)  uses  this  address 
in  writing  out  the  table. 

B.  Procedures  Calling  TRAC,  TSPOT: 

TRAC:  None 

TSPOT:  STRACC 

i 

C.  Procedures  Called  By  TRAC,  TSPO|T: 

l 

None 


D.  COMMON  References: 

None  / 

E.  Arguments: 

None 

F.  Values:  / 

/ 

TRAC:  None 

TSPOT:  Loc  = entry  point  for  TRAC 

O 

ERLC 


.*o£ 
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G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

TRAC:  60in  or  74  words,  TSFOT  = 2 words 

10  g 

J.  Source: 

TRACE  FAP 

K.  Files  Referenced: 

None 


*■ 


I 


O 

ERIC 


/ 
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3.4.  5.  10 


3.4.5.10  TIMEIN,  TOUT,  TOTTIM 
Purpose 

To  provide  fine  tinning  of  Intrex. 

Description 

A.  Operation:  TIME  IN  ( ).  TOUT)  ).  TOTTIM(  ) 

TIMEIN,  TOUT  and  TOTTIM/'work  together  to  provide  a means  of 
tinning  Intrex  modules.  Their  advantage  over  MONTIM  is  that,  being  more 
primitive,  they  have  considerably  less  overhead  and  can,  therefore,  be 
used  to  measure  finer  time  intervals.  > 

TIMEIN  extracts  the  value  of  the  B-core  timer  and  places  it  in  a save 
location.  TOTTIM  extracts  the  current  time  and  subtracts  from  it  the  value 
obtained  by  TIMEIN.  This  value  is  added  to  a tcfcal.  If  INCTIM(SST.)  is  on,  the 
incremental  time  is  printed  via  WRFLXA.  TOTTIM  prints  the  total  accu- 
mulated time  in  the  same  format. 

B.  Procedures  Calling  TIMEIN,  TOUT,  TOTTIM: 

Dependent  on  the  procedure  being  tested 

C.  Procedures  Called  by  TIMEIN,  TOUT,  TOTTIM: 

TIMEIN:  None 

TOUT:  WRFLXA 

TOTTIM:  WRFLXA 

' , N 

D.  COMMON  References: 

Name  Meaning  Interrogated?  Changed? 

INCTIM(SST.)  Inc rem . Time  Mode  x 

E.  Arguments: 

None 

F„  Values: 

None 

G0  Error  Codes: 

None 

O 

ERIC 


r - 
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H.  Messages: 

l.  " + 001JD8+"  ** 

I.  Lengths: 

TIMEIN:  4 words 

TOUT:  44  words 

TOTTIM:  6 words 


J.  Source: 

TIMER  FAP 


K.  Files  Referenced: 
None 


This  means  1 second  and  8 60th's. 


434 
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3.  4.5.11 


3.4.5.11  WHEN 


Purpose 

To  get  time  and  date 
Description 

A.  Operation:  Time  = WHEN  iDate) 

The  CTSS  utility  GETIME  will  deposit  the  time  of  day  in  the  AC 
register  and  the  date  in  the  MQ,  Since  the  MQ  is  not  accessible  through 
AED,  the  Fap-coded  subroutine  WHEN  provides  a means  of  obtaining  this 
data.  WHEN  calls  GETIME  and  stores  the  MQ  in  the  argument  Date. 

B.  Procedures  Calling  WHEN: 

MONTOR 


C. 


D. 


G. 


H. 


I. 


J. 


K. 


Procedures  Called  By  WHEN: 

GETIME 

COMMON  References: 

None 

Arguments:  ^ 

Date:  BCD-coded  date  in  format  of  tylMDDYY  (value  returned  by 

WHEN).  t 

Values: 

Time  = time  of  day  in  60th's  of  seconds 
Error  Codes: 

* 

None 

Messages: 

None 

Length: 


15 


8 


or  13jq  words 


Source: 

TIME  ALGOL 

Files  Referenced: 
None 


0 

ERIC 
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3.  5 CTSS  Utilities^ 

3.5.1  Disk  I/O 

3. 5.  1.1  OPEN 


Purpos  e 

To  prepare  the  system  for  reading  or  writing  a file. 


Description 


A.  Operation:  OPEN  (Status,  Namel , NameZ,  Mode,  Device) 

OPEN  must  be  called  before  a file  may  be  read  or  modified. *  * 

B.  Procedures  Calling  OPEN: 

BFOPEN,  CHKSAV,  CONDIR,  GONNAM,  DYNAMO,  GETINT, 
GETLIS,  IFSINT,  INIRES,  INITYP,  LISFIL,  LISTSL,  LONG, 
MOVEIT,  NAME,  OPFILE,  SAVE,  SHORT,  SUMOUT,  SYSGEN, 
TRETR1,  USE. 


C.  Procedures  Called  By  OPEN: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

a.  States: 

R:  Read  ^ 

W : W rite 

RW:  Read- Write 

b.  Namel: 

first  name  of  file 

A ' 

* 1 

c.  NameZ: 

second  name  of  file 

d.  Mode: 

0:  permanent 

1:  temporary  ^ 

4:  read-only 

100:  protected 

e.  Device: 

/ 

Z:  Disk  — 


F.  Values: 


None  • 


Error  Codes: 


3:  file  is  already  in  active  status 

4:  more  than  ten  active  files 

5:  status  is  illegal 

7:  linking  depth  exceeded 

8:  file  in  private  mode  under  different  user 

9:  attempt  to  write  a read-only  file 

10:  attempt  to  read  a write-only  file 

11:  machine  or  system  error 

12:  file  not  found  in  UFD 

13:  illegal  device  specified 

14:  no  space  allotted  for  this  device 

15:  space  exhausted  for  this  device 

16:  file  currently  being  restored  from  tape 

17:  I/O  error 

18:  illegal  use  of  M.  F . D.  * 

19:  U.  F.  D.  not  found  (i.  e.  , OPEN  through  a link) 

20:  Attempt  to  read  secondary  mode  file 

Messages: 

None 

Length: 

1 word  (resides  in  A-core) 


Source: 

CTSS 

Files  Referenced: 

I 

• SYSNAM  SGMTOn  (1<  n < 4)  . 
(MOVIE  TABLE) 

SYSNAM  .TBLE. 

COMMAND  TABLE*  . 

1 FIELDS  TABLE* 

ENDINd}  TEST1* 

SMFILE  LIST  XT 

smfied  DIRT  A B 

LMFILE  DISTXT 

LMFILE  DIRT  A B 

GUIDES  DISTXT 

GUIDE'A  DIRTAB 

MONOnn  FILE*  (01  < nn<  10) 

TIMING  SUMARY 

NEW;  SUMARY/'. 


CAT  DIR  INTREX 

CRnnn  INTREX  (001  < nnn  < 290) 
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IFDA  date 
IFDS  date 
IF  TAB  A date 
IF  TABS  date 
SInnn  date 
AInnn  FILE 
TEMnnn  FILE 
NAMnnn  FILE 
PAS  mm  FILE 
DUMnnn  FILE 


(001  < nnn  < 260) 
(001  _<_  nnn  < 030) 
(001  < nnn  < 010) 
(001  < nnn  < 010) 
(001  < nnn  < 010) 
(001  < nnn  < 010) 


Name  SAVE 
SAVED  'DIRECT 


> 


*OPEN .BUFFER,  RDFILE,  WRFILE,  CLOSE  called  by 
B.FOPEN,  BFREAD,  BFWRIT  and  BFCLOS  respectively 
(see  Section  3.  5. 2. 3). 
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3.  5. j . 2 


3.5.  1.2  CLOSE 


Purpose 


To  return  an  active  file  to  inactive  status 


Description 

A.  Operation:  CLOSE  (Name  1,  Name2) 


Since  the  system  will  maintain  only  ten  active  files  at  once,  files 

generally  must  be  closed  after  being  used. 

* 

B.  Procedures  Calling  CLOSE: 

ANDER,  CLEANP,  CHKSAV,  CONDIR,  CONNAM,  DYNAMO, 
FSO,  GETINT,  IFSINT,  IFSRCH,  INIRES,  INIVAR,  LISFIL, 
LISTSL,  LONG,  NAME,  QUIT,  SAVE,  SEARCH,  SHORT, 
SUMOUT,  SYSGEN,  TIME,  USE 

C.  Procedures  Called  By  CLOSE: 

None  ' 

D.  COMMON  References: 

None 

E.  Arguments: 

Name  1:  first  name  of  file  or  "ALL" 

Name  2:  second  name  of  file 

F.  Values: 

None  . . . 

G.  Error  Codes: 

None 


H.  Messages: 

None 

I.  Length: 

1 word  (resides  in  A-core) 

# 

J.  Source: 

CTSS 


K.  Files  Referenced 

See  Section  K of  3.  5.  1.  1 


ERIC 
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3. 5.  1.3  BUFFER 


Purpos  e 

To  assign  an  area  of  core  which  the  I/O  mechanism  may  use  as  a buffer. 
> Desc  ription 

A.  Operation:  BUFFER(Namel,  Name2,  Buf(O)  to  432) 

BUFFER  is  called  after  the  file  has  been  initialized  by  OPEN.  It 
must  be  used  if  the  file  is  being  written. 

B.  Procedures  Calling  BUFFER: 

BFOPEN,  CHKSAV;  CONDIR,  CONNAM,  INIRES,  LISFIL, 
LISTSL,  LONG,  MOVEIT,  NAME,  QUIT,  SAVE,  SHORT, 
SUMOUT,  SYSGEN,  USE 

C.  Procedures  Called  By  BUFFER: 

None 

D.  COMMON  References: 

None 

E.  Arguments:  

a.  Namel  and  Name2:  first  and  second  names  of  the  file. 

b.  Buf(O)  to  432:  Buf(O)  is  the  beginning  location  of  the  core 

storage  area.  The  expression  "to  432"  will  cause  the 
length  of  the  buffer  to  be  placed  in  the  decrement  of  the  argu- 
ment of  the  call. 

/ 

F.  Values: 

, None 

( 


G.  Error  Codes: 

3 "File  is  not  an  active  file 

4 “buffer  is  above  memory  bound 

5 -buffer  is  too  small 

H.  Messages: 

None 

I.  Length: 

1 word  (resides  in  A-core) 

J.  Source: 

CTSS 

q K.  Files  Referenced: 

See  Section  K of  3.  5.  1 . 1 440 


/ 


3.  5.  1.4  RDFILE 


Purpose 


To  read  a file  and  overlap  with  other  processing 
Description 

A.  Operation:  RDFILE  (Namel,  Name2,  Relloc,  Area(x)to  y,  Eof,  Eofcnt) 

RDFILE  initiates  the  I/')  necessary  to  move  y words  of  data  from 
the  file  Namel,  Name2,  starting  at  word  Relloc,  to  the  area  of  memory 
starting  at  Area(x). 


B.  Procedures  Calling  RDFILE: 
ANDER,  BFREAD 


C.  Procedures  Called  f3y  RDFILE: 

None 

D,  COMMON  References: 

None 


E. 


Arguments: 

Namel,  Name  2: 
Relloc: 

Area  (x):  ^ 

y:. 

Eof:  • 

Eofcnt:  .. 


Name  of  file 
1st  word  fo  be  read 
1st  word  of  read  area 
number  of  words  to  be  read 
location  of  end-of-file  routine 
number  of  words  read  on  last  read  before 
encountering  EOF. 


F.  Values: 
None 


G.  Error  Codes: 


/ 

i 


3 - file  is  not  active 

4 - file  is  not  in  read  status 

5*  — no  buffer  assigned  to  this  file 

6 ' previous  I/O  out  of  bounds 

7 - I/O  error 

8 ~ U.F.D.  has  been  deleted 


H.  Messages< 
None 


441 


' < 
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I.  Length: 

1 word  (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced: 

DUMxxx  FILE  (00 1 <_  xxx<  01 0) 

NAMxxx  FILE  (001£_  xxx<  010) 

MONxxx  FILE  (001  < xxx<  010) 

COMAND  TABLE 
FIELDS  TABLE 
ENDING  TEST 2 


) 

C — 
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3. 5.  1.  5 


3.  5.  1. 5 RDWAIT 
Purpose 

To  read  a file  with  no  processing  overlap 


Description 


A*  Operation:  RDW AIT(Name  1 , Name2,  Reiloc,  Area(x)  to  y,  Eof,  Eofcnt) 

i ^ 

RDWAIT  works  the  same  as  RDFILE,  except  that  it  incorporates  a 
call  to  FCHECK,  a CTSS  file  checking  routine  whiclit  will  cause  RDWAIT  to 

jt 

wait  until  the  read  has  been  completed  before  returning  to  the  user. 

B.  Procedures  Calling  RDWAIT: 

ANDER,  CALLIT,  CHKSAV,  CONDIR,  CONNAM,  FSO,  GETLIS, 
IFSINT,  IFSRCH,  INITYP,  LISFIL,  LISTSL,  MOVEIT,  NUMBER, 
SAVE,  SUMOUT,  SYSGEN,  TRETRI,  USE 

C.  Procedures  Called  By  RDWAIT: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

See  Section  E of  description  of  RDFILE  (3.5.  1.4) 

F.  Values: 

None  ' 

V-- 

G.  Error  Codes:  ft 

See  Section  G of  description  of  RDFILE  (3.  5.  1.4) 

H.  Messages: 

None 

I.  Length: 

1 word  (resides  in.  A -core)  ~ 

J.  Source: 

CTSS 


K 


Files  Referenced 


(MOVIE  TABLE) 
sysnam  S GMT  On 
sysnam  . TBLE. 
'SMFILE  DIRT  A B 
SMFILE  DISTXT 
LMFILE  DIRTAB 
LMFILE  DISTXT 
IF DA  date 

IFDS  date 

IFTABA  date 
IFTABS  date 
Six  xx  date 


AIxxx  date 
DUMxxx  FILE 
NAM  xxx  FILE 
TEMxxx  FILE 
SAVED  DIRECT 
name  SAVE 
NEW  SUMARY 
FICHE  DIRECT 


(1  < n < 4) 


(001  <_  xxx  < 
(001  < xxx  < 
(001  < xxx  < 
(001  < xxx  < 
(001  < xxx  < 


f> 

/ 


260) 

030) 

010) 

010) 

010) 
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3.5.  1.6  WRFILE 


Purpose 

To  modify  a file 

Description 

A.  Operation:  WRFILE(Namel,  Name2,  Relloc,  Area(x)  to  y.Eof.Eofcnt) 

WRFILE  initiates  the  i/O  necessary  to  move  y words  starting  at 
Area(x)  to  the  file  Namel  NameZ  starting  at  word  Relloc. 


B.  Procedures  Calling  WRFILE: 

BFWRIT 

C.  Procedures  Called  By  WRFILE: 

None 


D.  COMMON  References: 

None 

E.  Arguments: 

See  Section  E of  description  of  RDFILE(3r5.  1.4) 

F.  Values: 

None 


G. 


Error  Codes: 

3 - file  is  not  active 

4 - file  is  not  in  write  status 

5 - no  buffer  assigned 

6 - allotted  space  exhausted  for  this  device 

7 - previous  I/O  out  of  bounds 

8 - i/O  error 

9 ~ non-zero  relloc  with  write-only  file 

10  - maximum  length  exceeded 


H.  Messages: 
None 


I.  Length: 

2 (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced:  \ ^ 

MON  xxx  FILE  (001  < xxx  <VlO) 

445 
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3.5.  1.7  WRWAIT 


Purpose 
To  modify  a file 


Description 

A.  Operation:  W RW  A IT  (Name  1 , Name2,  Relloc,  Area(x)  toy,  Eof.Eofcnt) 

WRWAIT  functions  the  same  as  WRFILE,  except  that  it  waits  until 
the  I/O  operation  has  been  completed  before  returning  to  the  user. 


B.  Procedures  Calling  WRWAIT: 

ANDER,  CHKSAV,  CONDIR,  CONNAM,  FSO,  IFSRCH, 
IN  IRES , MOVEIT,  QUIT,  SAVE,  SUMOUT,  SYSGEN 

C.  Procedures  Called  By  WRWAIT: 

None 

D„  COMMON  References: 

None 

E.  Arguments: 

See  Section  E of  RDFILE  (3.  5.  1 . 4) 


F.  Values: 

None 

G.  Error  Codes: 

See  Section  G of  WRFILE  (3.  5.  4.  6) 


H.  Messages: 

None 

I.  Length: 

3 words  (resides  in  A-core) 


J.  Source: 
CTSS 


Files  Referenced: 

DUMnnn  FILE 

(001  < 

nnn  < 

010) 

PASnnn  FILE 

(001  < 

nnn  < 

010) 

NAMnnn  FILE 

(001  < 

nnn  < 

010) 

TEM  nnn  FILE 

(001  < 

nnn  < 

010) 

4r’ 


446 


-431  - 


3.5.  1.7 


TIMING  SUMARY 
SAVED  DIRECT 
xxxxxx  S A V E 
(Sysnam)  SGMTnn 
(Sysnam)  . TBLE. 


( 0 0 1 <_  nnn  <_  010) 

(001  < nnn  < 010) 

(xxxxxx  is  user-assigned  name) 
(01  < nn  < 04) 


/ 


V 


i 

i 


I 


447 
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3.  5.  1.8  TRFILE 


Purpose 

To  truncate  a file 
Des  cription 

A.  Operation:  TRFILE(Namel,  Name2,  Relloc) 

The  file  Namel  Name2,  which  is  open  for  writing,  is  truncated 
immediately  before  the  relative  location  Relloc. 

R.  Procedures  Calling  TRFILE: 

CLEANP,  CONDIR,  CONNAM,  DROP,  IN  IRES,  NAME,  QUIT 

C.  Procedures  Called  By  TRFILE: 

None 

D.  COMMON  References: 

None 

E. '  Arguments: 

a.  Namel  Name2:  name  of  opened  file  to  be  truncated 

b.  Relloc:  location  of  first  word  to  be  truncated 

F.  Values: 

None 

G.  Error  Codes: 

3 - file  is  not  active 

4,  - file  is  not  write  status 

3 - buffer  has  not  been  assigned  to  file 

6 - previous  I/O  out  of  memory  bound 

7 - relloc  larger  than  file  length 

8 - I/O  error 

H.  Messages: 

None 

I.  Length: 

2 words  (resides  in  A-core) 
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\ 


J.  Source:  \ 

CTSS 

K.  Files  Referenced: 

DUMnnn  FILE  (001  < nnn  < 010) 
TEMnnn  FILE  (001  < 0 1 0) 

SAVED  DIRECT 


* 
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3.5.  1.9  FWAIT 
Purpose 

/ 

To  wait  for  i/O  to  be  completed 
Description 

A.  Operation:  FWAIT  (Namel,  Name2) 

If  any  i/O  operation  is  in  progress  for  file  Namel  Name  2 when 
FWAIT  is  called,  FWAIT  will  wait  until  the  operation  is  completed  be- 
fore returning  control  to  the  user. 

B.  Procedures  Calling  FWAIT: 

ANDER,  BFREAD,  BFWRIT 

C.  Procedures  Called  By  FWAIT:  ^ 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Namel  NameZ:  first  and  second  names  of  a file  (BCD) 

F.  Values: 

None 

G.  Error  Codes: 

3 - file  is  not  active 

4.-  I/O  is  out  of  memory  bound 

5 - i/O  error 

H.  Messages: 

None 

i 

I.  Length:  j 

1 I 

1 word  (resides  in  A-co^e) 

j 

J.  Source: 

CTSS  I 
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3. 5.  1 . 9 


K.  Files  Referenced: 


SIxxx 

(date) 

(001  < 

XXX 

< 

260) 

AIxxx 

( date ) 

(001  < 

XXX 

< 

30) 

DUMxxx 

FILE 

(001  < 

XXX 

< 

010) 

NAMxxx 

FILE 

(001  < 

XXX 

< 

010) 

MONxxx 

FILE 

(001  < 

XXX 

< 

010) 

COMAND 

TABLE 

FIELDS 

TABLE 

ENDING 

TEST2 

451 


3.  5.  2.  1 


s/ 
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3.  5.  2 Buffered  Disk  1/ O 

3.  5.  2.1  BFOPEN 


O 

ERIC 


Purpose 

To  open  a file  and  assign  buffers 


Description 

A.  Operation:  BFOPEN  (Status , Namel,  NameZ,  Bufl,  Buf2,  Buf3,  Err) 

^ BFOPEN  opens  the  file  Namel,  Name2  for  reading  or  writing  and 

assigns  up  to  3 buffers  to  the  file.  BFOPEN  will  transfer  to  Err  if  an  error 
occurs. 


B.  Procedures  Calling  BFOPEN: 

INIDSK,  PREP,  REND,  TABLE 

C.  Procedures  Called  By  BFOPEN: 

BUFFER,  FWAIT,  OPEN 


D.  COMMON  References: 

None 

E,  Arguments: 

a.  Status:  may  be  R(Read)  or  W(Write) 

b.  Namel  Name2:  name  of  file 

c.  Bufl,  Buf2,  Buf3:  beginning  locations  of  432-word  buffers . 
Reading  requires  at  least  one  buffer  and  writing  requires  two. 

d.  Err:  location  of  error  handling  routine. 


F.  Values: 
None 


G. 


H. 


I. 


Error  Codes : 
None 

<r  ,1 

Messages 

None 

Length: 

144g  or  100 


J.  Source: 

CTSS 

K,  Files  Referenced: 

MONxxx  FILE  (001  < xxx  < 01 0) 
COMAND  TABLE 
FIELDS  TABLE  . 

ENDING  TEST2  [ 

^ 452 


\ 
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3. 5. 2. 2 


3.  5.2.2  BFREAD 
Purpose 

To  read  a record 


Description 

A.  Operation:  BFREAD(Namel,  Name2,  Area(x)  to  y,  Eof,  Eofcnt,  Err) 

f 

BFREAD  moves  y words  from  the  current  buffer  to  the  location 
beginning  of  Area(x). 

B . Procedures  Calling  BFREAD: 

RDFILE,  FC HECK 

C.  Procedures  Called  By  BFREAD: 

RDFILE,  FCHECK 

D.  COMMON  References: 

None 

E.  Arguments: 

a.  Namel  Name2:  file  name 

b.  Area(x)  to  y:  Area(x)  is  the  first  location  of  the  area^that 
will  Receive  the  data.  ,fYM  words  will  be  transmitted. 

c.  Eof:  location  to  which  control  is  transferred  when  end  of 

file  is  encountered  before  end  of  file. 

d.  Eofcnt:  number  of  words  transmitted  before  the  end  of  file 

is  encountered. 

e.  Err:  location  of  error  routine. 

\ 

F.  Values: 

\ 

None 

G.  Error  Codes: 

None 


H.  Messages: 

None 

I.  Length: 

3 words  (resides  in  A-core) 


J.  Source: 

CTSS 

K.  Files  Referenced: 

COMAND  TABLE 
FIELDS  TABLE 
ENDING  TEST 2 

O 

ERIC 
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3.  5. 2.  3 ‘BFWRIT 

Purpos  e 

To  modify  a file 

Description 

A.  Operation:  BFWRIT  (Namel,  Name2,  Area(x)  to  y,  Eof,  Eofcnt,  Err) 

BFWRIT  moves  y words  from  the  core  location  Area(x)  to  the 
current  buffer. 

B.  Procedures  Calling  BFWRIT: 

SUMOUT  TYPEIT 

C.  Procedures  Called  By  BFWRIT: 

FWAIT,  WRFILE 

D.  COMMON  References:  \ 

\ 

None 

i ^ 

E.  Arguments:  ^ 

See  Section  E of  BFREAD  (3.  5. 2. 2) 

F.  Values:  j 

None 

G.  Error  Codes:  .. 

None 

H.  Messages:  ! 

None 

I.  Length: 

246g  or  166jq  words 

J.  Source; 

CTSS 

K.  Files  Referenced: 

MON xxx  FILE  (000  < xxx  < 010) 
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3.  5.2.4 


3.  5. 2. 4 BFCLOS 


Purpose 

To  re-activate  a file 


\ 


Des  c ription 
A.  Operation: 


BFC LOS  (Name  1 , NameZ) 


BFCLOS  will  clear  the^  buffers  used  for  Namel  Name2  and  clos 


/ 

B.  Procedures  Calling  BFCLOS: 

F-iRRGO,  INIDSK,  PREP,  REND,  TABLE 

C.  Procedures  Called  By  BFCLOS: 

CLOSE 

D.  COMMON  References: 

None 

E.  Arguments:  \ 

Namel,Name2:  first  and  second  names  of  file  in  BCD 

F.  Values: 

None 

i 

G«  Error  des:  s 


None 

H.  Messages : 

None 

I.  Length: 

246^  or  16610  words 


the  file. 


J.  Source: 


CTSS 


K.  Files  Referenced: 


MON  xxx  FILE 
COMAND  TABLE 
ENDING  TEST  2 
FIELDS  TABLE 


(001  < xxx  <_  010) 
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3 . 5.  3 File  Status 

3,  5.  3.1  CHFILE 

Purpose  . • 

To  change  the  name  and/or  mode  of  a file 
Description 

A.  Operation:  CHFILE(Namel,  Name2,  Mode,  Name3,  Name4) 

CHFILE  will  change  the  mode  of  Namel  Name2  to  Mode  and  will 
change  its  name  to  Name3  Name4.  To  change  the  mode  only,  Name3 

f . 

and  Name4  must  be  represented  by  -0.  The  file  being  modified  may  not 
be  in  active  status  at  the  time  of  the  change. 

B.  Procedures  Calling  CHFILE: 

SYSGEN 

C.  Procedures  Called  By  CHFILE: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Namel«Name2:  name  of  file  to  be  changed 

Mode!  new  mode  of  file  (binary) 

Name3j  Name4:  new  name  of  file  (or  -0) 

F.  Values: 

None 

G.  Error  Codes:  7 

3 - attempt  to  change  M.  F.D.  or  U.F.D.  file 

4 - file  not  found 

5 "linked"  file  not  found 

6 - "linking  depth  exceeded 

7 - attempt  to  change  "private"  file 

8 - attempt  to  change  "protected"  file 

9 " record  quota  overflow 

10  — Name3  Name4  already  exists 

11  - machine  or  system  error 

12  - file  in  active  status 

H.  Messages:  ’ 

None 
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3.5.3.  1 


i *' 

I.  Length: 

1 word  (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced: 

(MOVIL  TABLE) 


l 


*4e>7 


3.  5.  3.  2 
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O 

ERLC 


3 . 5 . 3 . 2 DELFIL 
Purpose 

To  delete  a file 
Description 

Operation:  DELFIL  (Name  1 , Name2) 

DELFIL  will  delete  Namel  Name2  from  the  file  directory 

B.  Procedures  Calling  DELFIL: 

CONNAM,  DROP,  SUMOUT,  SYSGEN,  USE 

C.  Procedures  Called  By  DELFIL: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Namel  Name2:  Name  of  file  (BCD) 

F.  Values: 

None 

G.  Error  Codes: 

3,  - file  not  found  in  U.  F.  D. 

4 - "linked"  file  not  found 

5 - linking  depth  exceeded 

6 - file  is  protected,  private,  read-only,  or  write-only 

7 - machine  or  system  error 
8.  - file  in  active  status 

H.  Messages: 

None 

I.  Length: 

3 words  (resides  in  A-core) 

J.  Source: 

/ CTSS 

K.  Files  Referenced: 

NAM  xxx  FILE  (00  1 < xxx<  010) 

(name)  SAVE 

(sysnam)  S GMT  On  (1  <_  n < 4) 

(sysnam)  . TBLE. 

NEW  SUMARY  . _ „ 

4d8 
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3.  5.  3. 3 


3.  5.  3.  3 FSTATE 


Purpos  e 

To  retrieve  statistical  data  on  a file 
Description 

A.  Operation  FSTAT E(Name  1 , Name2,  A(0)  to  8) 

Upon  return,  the  array  A will  contain  the  following  data  about  the 

file  Name;  NameZ: 

A(0):  length  of  file  in  words 

A(l):  mode 

A(2):  status  (open/closed) 

A(3):  device  (disk/d rum/ tape) 

A(4):  address  of  next  word  to  be  read 
A(5):  address  of  next  word  to  be  written 
A(6):  date  and  time  of  last  modification 

A(7):  date  of  last  read,  author  of  file  *, 

/ 

B.  Procedures  Calling  FSTATE: 

FILCNT,  GETLIS,  INIDSK,  INITYP,  TYPEIT,  SEARCH, 
SYSGEN,  USE 

C.  Procedures  Called  By  FSTATE: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Namely  Name2:  name  of  file 

A(0)  to  8:  8-word  array,  which  FSTATE  fills  with  data 

F.  Values: 

None 

G.  Error  Codes: 

3 - file  not  found 

4 - "linked"  file  not  found 

5 - linking  depth  exceeded 

H.  Messages: 

None 

I.  Length: 

2 words  (resides  in  A-core) 

J.  Source: 

CTSS 


4o9 


3.  5.  3.  3 


-444- 


K.  Files  Referenced: 


COM  AND 
ENDING 
FIELDS 
GUIDEA 
IFDA 
IFDS 
LMFILE 
name 
SAVED 
SMFILE 
s ysnam 
Alnnn 
SInnn 
DUMnnn 
MONnnn 
NAMnnn 
PAS  nni 


TABLE 

TEST  2 

TABLE 

DIRTAB 

date 

date 

DIRTAB 

SAVE 

DIRECT 

DIRTAB 

.TBLE . 

date 

date 

FILE 

FILE 

FILE 

FILE 


(001  nnn  < 035) 
(001  < nnn  <_  270) 
(001  <_  nnn  < 010) 
(001  <_  nnn  < 010) 

(001  <_  nnn  < 010) 
(001  < nnn  < 010) 
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3.5.4. 1 


3.  5.  4 Disk  1/ O Errors 

3,5.4,  1 FERRTN 
Purpos e 

To  set  error  exit 


Description 

A.  Operation:  FERRTN(Errloc) 

FERRTN  establishes  a single  error  return  for  all  I fO  system 
errors  at  location  Errloc. 


B.  Procedures  Calling  FERRTN: 

SETRTN,  SYSGEN 

C.  Procedures  Called  By  FERRTN: 

None 


D.  COMMON  References: 

None 

i 

E.  Arguments: 

ERRLOC:  core  location  of  error  routine 

r 

F.  Values:  - ) 

None 

G.  Error  Codes: 

None 


H.  Messages: 

None 

I.  Length: 

6 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

All  files 


\ 

! 


• * 

461 


3.  5.  4.  2 
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3.  5. 4. 2 IODIAG 
Purpose 

To  retrieve  data  on  error  conditions 
Desc  ription 

A.  Operation:  IODIAG(Area  (0)  to  7) 

IODIAG  may  be  called  to  obtain  specific  information  about  the  I/O 
systems  error.  Upon  return,  the  array  Area  will  contain  the  following 
info  r mation: 

A(0):  location  of  call  causing  the  error 

A(  1 ):  BCD  name  of  routine  causing  error 

A(2):  error  code 

A(3):  I/O  e rror  code  (1-7) 

A (4):  Namel  of  file 

A(5):  Name2  of  file 

A(6):  empty 

B.  Procedures  Calling  IODIAG: 

ERRGO 

C.  Procedures  Called  By  IODtAG: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Area(0)  to  7:  7 -word  array,  which  will  receive  information 

F.  Valves: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

2 words  (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced: 

All  files 
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3. 5. 5.  1 

3.  5.  5 Console  I/O 

3.  5.  5.1  RDFLXA 
Purpose 

To  receive  a line  from  the  console 
Description 

A.  Operation:  Chars  = RDFLXA  (Area(x)  toy) 

RDFLXA  reads  a line  from  the  console  and  moves  y words  into 
the  core  beginning  at  location  Area  (x).  Op  return,  "chars"  will  con- 
tain the  number  of  6-bit  characters  read,  including  the  break  character. 

In  12-bit  mode,  the  number  of  characters  read  will  be  chars/2.  Theword 
containing  the  break  character  and  subsequent  words  are  padded  with  blanks  . 
If  the  break  character  is  not  received  before  the  input  buffer  is  full,  bit  21 
of  "chars"  will  be  set  to  1,  indicating  that  another  call  to  RDFLXA  is  nec- 
essary to  continue  reading  the  line. 


B.  Procedures  Calling  RDFLXA: 
GET  LIN,  INIVAR 


C.  Procedures  Called  By  RDFLXA: 

None 

D.  COMMON  References : 

None  - 


E. 


F. 


Arguments: 

Area(x)  to  y:  defines  an  area  beginning  at  Area(x)  which  is  y 

words  long. 

Values: 

Chars:  length  of  input  line  in  6 -bit  characters 


G.  Error  Codes: 
None 


H. 

I. 

J. 

K. 


0 

ERIC 


Messages: 

None 

Length: 

2 words  (resides  in  A-core) 

S ource: 

CTSS 

Files  Referenced: 


463 


None 


3.  5.  5.  2 
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3.5.5.Z  RDF  LX 


3 

ERIC 


Purpose 

To  receive  a line  from  the  console 
Desc  ription 

A.  Operation:  RDFLX  ( Area  (x)  to  y) 

RDFLX  will  read  a line  from  the  console  using  RDFLX  A.  It  will 
then  strip  the  break  character  from  the  line,  pad  any  remaining  char- 
acters up  to  y words  with  blanks,  and  move  the  y words  into  memory 
beginning  at  location  Area(x).  If  y,  which  cannot  be  greater  than  14, 
less  than  the  number  of  words  read,  the  excess  will  be  lost. 


B. 


C. 


D. 


E. 


F. 

G. 

H. 

I 

N 

I. 

J. 


Procedures  Calling  RDFLX: 
SYSGEN 

Procedures  Called  by  RDFLX: 
RDF LX A 

COMMON  References: 

None 


Arguments : 

Area(x)  to  y: 

Y alues : 

None 

Error  Codes: 
None 

Messages : 
None 
Length: 


defines  a memory  area  starting  at  Area  (x)  and 
y words  long. 


7 5 „ or  6 1 


8 

Source: 

CTSS 


10 


words 


K.  Files  Referenced: 
None 
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3 


5.  3 


3.  5.  5.  3 WRFLXA 
Purpos e 

To  write  data  on  console 


Des  c ription 

A.  Operation:  WRFLXA  (Area  (x)  toy) 

WRFLXA  will  print  y words  beginning  at  location  Area  (x), 
where  y is  less  than  29  in  12-bit  mode  and  y is  less  than  15  in  6-bit 
mode.  It  does  not  add  a carriage  return  at  the  end  of  the  line  and  does 
not  delete  trailing  blanks. 

B.  Procedures  Calling  WRFLXA: 

CALLIT,  CLP,  OUT.,  PRT12  SENTRY,  SYSGEN,  TRETRI 
WFLXA 

C.  Procedures  Called  WRFLXA: 

None 

D.  COMMON  References: 

None 


E.  Arguments: 

Area  (x)  to  y:  Defines  an  area  beginning  at  Area(x)  which  is  y 

words  long 


F. 

V alues : 
None 

G. 

Error  Codes : 
None 

H. 

Messages: 

None 

t 

I. 

Length: 

3 words  (resides  in  A-core) 

J. 

Source: 

CTSS 

i 

K. 

Files  Referenced:  j 

None  i 
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3.  5.  5. 4 WRFLX 


Purpose 

To  write  data  on  console. 

Description 

A.  Operation:  WRFLXjArea(x)  to  y) 

WRFLX  will  print  through  the  last  non-blank  character  within  y 
words  beginning  at  location  Area(x).  Trailing  blanks  will  be  deleted  and 
a carriage  return  inserted. 

B.  Procedures  Calling  WRFLX- 

CALLIT,  SYSGEN 


C. 

D. 

E. 

F. 

G. 

H. 

I. 

..-'X 

J. 


Procedures  Called  by  WRFLX: 
None 


COMMON  References: 

None  5 | 

Arguments: 

Area  (x)  to  y:  defines  a memory  area  starting  at  Area(x)  which 

is  y words  long. 

Values:  , ^ 

None  >• 

Error  Codes: 

None 


Messages : 

None 
Feng  th: 

1 word  (resides  in  A-core) 
Source: 


CTSS 


K.  Files  Referenced: 
None 


: • 4 / 
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3 . 5 . 5 . 5 


• 3.5.  5.  5 SETFUL 


Purpose 

* 

To  set  character  mode  to  12-bit 


Description 

A.  Operation: 


SETFUL(  ) 


SETFUL  sets  the  console  character  mode  switch  to  send  and  re 
ceive  in  12-bit  mode* 

B.  Procedures  Calling  SETFUL: 

GET  LIN,  PRT12,  TRETRI 

/ 

/ 

C.  Procedures  Calling  SETFUL: 

None 

D.  COMMON  References: 

None 

E. i  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None  , 

H.  Messages: 

None 

I.  Length: 

1 word  (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced: 


ERIC 


None 


3.  5.  5.  6 
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3. 5. 5. 6 SETBCD 
Purpose 

To  set  character  mode  to  6-bit 
Des  cription 

A.  Operation:  SETBCD(  ) 

SETBCD  sets  the  console  character  mode  switch  to  send  and  re- 
ceive a 6-bit  mode. 

B.  Procedures  Calling  SETBCD: 

GET  LIN,  PRT12,  TRETRI 

C.  Procedures  Called  By  SETBCD: 

None 

\ 

D*  COMMON  References: 

None 

E*  Arguments: 

None 

F*  Values: 

None 

G*  Error  Codes:  j 

None  ^ 

H.  Messages:  < 

None 

I.  Length: 

1 word  (resides  in  A-core) 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 


O 

ERIC 
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3 • 5 . 6 . 1 


3,  5,  6 Data  Conversion 

3.  5,6.  i BCDEC 

Purpos e 

To  perform  BCD  to  binary  conversion 
Des  c ription  , 

A.  Operation  Bin  = BCDEC(BCD) 

BCDEC  converts  the  BCD  number  MBCD"  to  the  binary  equiv 
alent  Bin. 

B.  Procedures  Calling  BCDEC: 

PREP,  SYSGEN 

C.  Procedures  Called  By  BCDEC: 

I lone 

D.  COMMON  References:  ‘ 

None 

E.  Arguments: 

BCD:  number  in  BCD  representation 

F.  Values: 

Bin  = binary  number 


G. 

Error  Codes : 

None 

H. 

Mes  sages : 

None 

I. 

Length: 

22  Q or  18,  n words 

o 1 U 

J. 

Source: 

nSS 

K. 

Files  Referenced: 

None 

\ 

O 

ERIC 
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3. 5.6.2 


3 . 5 . 6 . 2 DEFBC 
Purpos e 

To  perform  binary  to  BCD  conversion 
Description 

A.  Operation:  A = DEFBC(K) 

DEFBC  converts  the  full  35  bits  of  K into  a right  justified, 
padded,  BCD  numoer.  The  sign  bit  is  ignored. 

B.  Procedures  Calling  DEFBC: 

GETFLD,  IFSRCH,  INIRES,  SEARCH 

C.  Procedures  Called  By  DFFBC: 

None  < 

D.  COMMON  References: 

None 

E.  Arguments: 

K:  binary  number 

F.  Values: 

A = BCD  number,  right  justified,  zero  padded. 

G.  Error  Codes: 

None  ^ 

H.  Messages: 

None 

I.  Deng  in: 

3 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 


470 
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3 . 5.6.  3 


3.  5. 6. 3 DERBC 
Purpose 

To  perform  binary  to  BCD  conversion 
Desc  ription 

A.  Operation:  A DERBC(K) 

DERBC  converts  the  right  18  bits  of  K into  a 
zero  padded  BCD  number, 

B.  Procedures  Calling  DERBC: 

TRETRI 

C.  Procedures  Called  By  DERBC: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

K:  bihary  integer 

F.  Values: 

A = ^ight  justified,  zero  padded,  BCD  number 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

3 words 

J.  Source: 

c \ss 

K.  Files  Referenced: 

None 


47 


right  justified. 
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3 . 5,6.4  OCA  BC 
Purpos  e 

To  convert  from  binary  to  octal 
Desc  ription 


OCARC  converts  the  address  field  of  K to  5 octal  BCD  digits 


with  a leading  blank. 

B.  Procedures  Calling  OCABC: 

SYSGEN 

C.  Procedures  Called  By  OCABC: 

Nox.e 

D.  COMMON  References: 

None 

E.  Arguments: 

K:  binary  digit 

F.  Values: 


A = va  ie  of  address  field  of  K in  octal,  expressed  in  5 BCD 


numbers  and  one  leading  blank. 
G-  Error  Codes: 


A.  Operation: 


A = OCABC(K) 


\ 


None; 


H.  Messages: 
None 


I.  Length: 

4 words 


T 


Source: 


CTSS 


K.  Files-  Referenced: 
None 


ERIC 
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3, 5. 6. 5 RJUST 


Purpose 

To  right-adjust  BCD  word 
D esc  r i ption 


A.  Operation: 


A = RJUST(K) 


RJUST  will  take  the  BCD  word  K and  replace  trailing  blanks  with 
leading  blanks.  If  the  word  is  all  blanks  "bobbb"  is  returned. 

B.  Procedures  Calling  RJUST: 

CHKNUM,  QUIT,  SYSGEN 

C.  Procedures  Called  By  RJUST: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

K:  BCD  word 

F.  Values: 

A = right  adjusted  BCD  word 

G.  Prior  Codes: 


I.  Length: 

26g  or  22  ^ words 

J.  Source: 

RJUST 

K.  Files  Referenced: 

None 


None 


H.  ' Messages: 
None 


ERIC 


3.  5. 6. 6 BZEL 


Purpose 

To  convert  zeroes  to  blanks 


Description 

A.  Operation:  A = BZEL(K) 

BZEL  will  replace  the  leading  zeroes  in  the  BCD  word  K with 

blanks.  If  K is  zero,"  bbrbb*"  will  be  returned. 

B.  Pr  ocedures  Calling  BZEL.: 

C HKN  UM,  Q U IT 

C.  Procedures  Called  By  BZEL: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

K:  BCD  word 

F„  Values: 

A = BCD  word  with  leading  zeroes  converted  to  blanks. 

G.  Error  Codes: 

None 


H.  Messages: 

None 

I.  Length: 

2 0^  or  16  10  words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

v None 

\ 

i 

) 
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Miscellaneous  Utilities 


3 m *->  # ( 

Purpose 
To  return  control  to  CTSS 
Des  c ription 

A.  Operation:  l)ORMNT(  ) 

DORMNT  returns  contfol  to  the  CTSS  supervisor  and  puts  the  user 
in  dormant  status*  Machine  conditions,  status  and  memory  are  saved,  If 
the  START  or  RSTART  command  is  given,  control  returi.  > to  the  machine 
instruction  beyond  the  call  to  DORMNT. 

B.  Procedures  Calling  DORMNT: 

ANDER,  CLP,  ERRGO,  PREP,  QUIT,  SHORT,  SUPER, 

TABLE,  TYPASH,  TYPEIT 

C.  Procedures  Called  By  DORMNT: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H„  Messages:  x 

None 

I*  Length: 

4 words 

J.  Source: 

CTSS 

K.  Files  Refer  onced: 

None 
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Purpos  e 


To  halt  execution  momentarily 


Description 

A.  Operation:  SLEEP(  ) 


The  program  is  placed  in  dormant  status  and  is  restored  to 


working  status  after  n seconds  have  elapsed,  where  n _s  the  contents 
f the  accumulator.  Since  the  call  to  7DEEP  is  not  convenient  via  AED, 
an  AED-oriented  procedure  namfed  NAP  (Section  3.4,  5.  3)  is  empl  oyed 
to  call  it. 

B.  Procedures  Calling  SLEEP: 


NAP 


C.  Procedures  Called  by  SLEEP: 
None 


D.  COMMON  References: 


None 


E.  Arguments: 
None 


F,  Values: 
None 


G.  Ej  ror  Codes: 
None 


H.  Messages: 
None 


I.  Length: 

2 words 


J.  Source: 

CTSS 

K.  Files  Referenced; 

None 


ERiC 
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3.  5.  7 . 3 WAIT 


Purpose 

To  enter  WAIT  status 

Des  c ription 

A.  Operation:  WAIT(S,  N) 

The  INTREX  system  is  put  into  WAIT  status*  The  system  will  be 

restarted  after  n seconds  have  elapsed  or  when  an  input  line  is  completed, 

B.  Procedures  Calling  WAIT: 

GET  LIN 

C.  Procedures  Called  By  WAIT: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

S:  0:  Timer  - wait  status:  the  program  will  be  restarted  after  n 

seconds.  No  commands  are  accepted.  Input  lines  are  saved; 
the  program  is  not  restated  when  input  lines  arrive. 

1:  Input- wait  status:  the  program  will  be  restarted  after  n 

seconds  have  elapsed  or  when  an  input  line  is  completed.  If 
n is  zero,  the  program  will  be  restarted  only  when  an  input 
line  is  completed. 

2:  Dormant  status:  the  program  will  be  restarted  after  n seconds. 

An  input  line  while  dormant  is  interpreted  as  a command.  This 
mode  is  equivalent  to  SLEEP. 

N:  number  of  seconds  for  which  execution  is  to  be  suspended. 


F.  Values: 

None 

G.  Error  Codes: 


H. 

I. 


J. 


K. 


None 

Messages  : 

None 

Length: 

3 words 

Source: 

CTSS 

Files  Referenced 
None 
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o r-  rr*  a 

0.0.  < . ‘-t 


3.  5.7. 4 GETBRK  ( 

t . 

• r 

Purpos  e 

To  get  location  of  interrupt  ^ 

Description  , r \ * 

• \ x 

A.  Operation:  Loc  - GETBRK  ( ) 

GETBRK  is  called  to  find  the  value  of  the  instruction  location 
counter  at  the  point  of  interruption  via  the  ATTN, button. 

B.  Procedures  Calling  GETBRK: 

INTONE,  INTTWO,  TYPEIT,  LISTEN 

C.  Procedures  Called  By  GETBRK: 


None 

/ D.  COMMON  References: 

- ■ i 

None  

7 V. 

. E.  Arguments:  * • r 

None  ■ 

F.  Values: 

Loc  = location  of_  break  ^ 

G.  Error  Codes:'  \ 

None 

* 

H.  Messages; 

None 

I.  Length: 

2 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 


O 

ERIC 
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3. 5. 7. 5 


■\ 


3.  5.7. 5 SETBRK 
Purpos  e 

To  set  the  entry  point  for  ank  interrupt  handling  routine. 

Description  - 1 

* 

A.  Operation:  SETBRK(Loc) 

When  a program  is  started,  it  is  at  interrupt  level  0.  A program  , 
may  drop  the 'inter  rupt  level  and  set  the  entry  point  for  an  interrupt 
handling  routine  for  each  level.  During  execution,  the  level  may  be 
rais-ed  either  by  a program  call  to  the  supervisor  or  by  the  uder  sending 
the  interrupt  signal.  The  interrupt  signal  causes  the  interrupt  level  to  be 
raised  by  one  and  control  to  be  transferred  to  the)entry  point  previously 
specified  by  the  program.  — ‘ 

An  interrupt  at  level  0 will  be  ignored.  Every  interrupt  will  cause 
the  supervios  r“  to  print  INT.n,  where  n is  the  level  to  which  control  is  to 
be  transferred*  ^ 

B;  Procedures  Calling  SETBRK: 

ININT,  INTONE,  INTTWO 

C.  Procedures  Called  By  SETBRK: 

None 

D*  COMMON  References: 

None 

. E.  Arguments: 

Loc:  location  of  interrupt  routine 

/ 

F.  Values: 

None  j 

G.  Error  Codes: 

None 

H.  Messages: 

None 


O 

ERIC 
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3.  5.  7.  5 


464 


I.  Length: 

2 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 


''S 


o 
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3. 5.7.6 


3. 5,7.6  SAVBRK 
Purpose 

To  raise  the  interrupt  level 
Desc  ription 

i 

A.  Operation:'"  Loc  = SAVBRK(  ) 

SAVBRK-Wises  the  interrupt  level  by  one  and  returns  in  the  accu- 

4 

mulator  the  entry  point  of  the  interrupt  handling  routine  of  the  level  just 
entered.  ^ 

B.  Procedures  Calling  SAVBRK: 

TYPEIT 

C„  Procedures  Called  By  SAVBRK: 

None 

D.  COMMON  References: 

None 

, < 

E.  Arguments: 

None 

F.  Values: 

Loc  = location  of  interrupt-handling  routine  for  level  ju  c entered. 


G.  Error  Codes: 

None 

\ ' ^ 

H.  Messages: 

None 

I.  Length: 

2 words 

J.  Source: 

CTSS 

K„  Files  Referenced: 
None 


© 


O 

ERIC 
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-466- 


3.  5.7.7  GETMEM 
Purpose  „ 

To  obtain  memory  bound 
Description 

A.  Operation:  Mem  = GETMEM(  ) ^ 

The  current  memory  bound  is  stored  in  Mem. 

B.  Procedures  Calling  GETMEM: 

FREE,  FRET,  SIZE 

C.  Procedures  Called  By  GETMEM: 

None 

D.  COMMON  References: 

None 

E.  Arguments 

None 

F.  Values: 

Mem  = current  memory  size  in  binary  — — 

G.  Error  Codes: 

None 

H.  Messages:  \ 

None  \ 

I.  Length:  \ 

None 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 
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3. 5.7.8 


3.  5.7. 8 SETMEM 
Purpose 

To  set  memory  bound 
Description 

A.  Operation:  N = M,  SETMEM(  ) 

SETMEM  sets  the  memory  allotment  to  the  value  of  N.  The  prior 
expression  MN  = Nn  is  necessary  because  SETMEM  expects  to  find  N in 
the  accumulator. 

B.  Procedures  Calling  SETMEM: 

FREE,  SYSGEN 

C.  Procedures  Called  By  SETMEM: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

N:  Memory  bound  (binary) 

F.  Values* 

None 

G.  Error  Codes: 

None 

H.  Messages:  * 

None 

I.  Length: 

2 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 
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3.  5.7.9  WHO  AMI 


Purpcs  e 
To  identify  user 


Desc  ription 


/ 


A.  Operation:  WHOAMI(  Area  (0)  to^.7) 

WHOAMI  obtains  status  information  from  the  supervisor.  The 


array  Area  will  contain  the  following: 


B. 


Area  (0) 
Area  ( 1 ) 
Area  (2) 
Area  (3) 
Area  (4) 
Area  (5) 
Area  (6) 


Problem  number 
Programmer  number 
CTSS  system  name 
Console  ID  code 
Name  of  the  login  command 
User's  home  file  directory 
User's  name 


Procedures  Calling  WHOAMI: 

FSO,  INXCON,  MONTOR,  WHOM 


C.  Procedures  Called  By  WHOAMI: 
None 


D.  COMMON  References: 

None  / 

E.  Arguments: 

Area  (0)  to  7:  7 -word  array,  which  WHOAMI  fills  with  data. 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

l.  Length: 

3 words 


J-.  Source: 
CTSS 


K.  Files  Referenced: 


None 
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3.5.7.  10 


3.5.7.10  SETWRD 
Purpose 

To  set  A-core  word 
Peso  ription 

A.  Operation:  SETWRD  (Word) 

SETWRD  stores  the  contents  of  "Word"  in  the  A-<  ^e  location 
that  is  reserved  for  the  logged  in  user. 


B„ 

Procedures  Calling  SETWRD: 

DYNAMO,  INXDSK,  LONG,  OPFILE, 

QUIT,  SHORT,  TYPEIT 

C. 

Procedures  Called  By  SETWRD: 
None 

D. 

COMMON  References: 
None 

E. 

Arguments: 

Word:  1 word  of  data  to  be  stored  in 

A - core 

F. 

Values: 

None 

G. 

> 

Error  Codes: 
None 

H. 

Messages: 

None 

T 

Length: 

3 words 

C 

J. 

Source: 

CTSS 

/ 

K. 

Files  Referenced: 

485 


None 
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3.5.7.11  GETWRD 
Purpose 

To  get  A-core  word 
Description 

A.  Operation:  Word  = GETWRD  (Userno) 

GETWRD  will  retrieve  from  A-core  the  contents  of  the  location 

reserved  for  the  logged-in  user. 

B.  Procedures  Calling  GETWRD: 

INITYP 

C.  Procedures  Called  By  GETWRD: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Userno:  user  number  (in  binary) 


F.  Values: 

Word  = contents  of  word  in  A-core  reserved  for  user  with  user 

\ 

number  Userno. 

G.  Error  Codes: 

None  given  in  CTSS  description 

H.  Messages: 

None 

I.  Length: 

1 word 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 
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3.  5. 7.  1 


3.  5.7.  12  SETBLP 


Purpos e 


To  set  blip  characters 
Desc  ription 

A.  Operation:  SET  BLP  (Chars  ,N) 

SETBLP  will  cause  the  system  to  transmit  to  the  console  the 
three  12-bit  characters  stored  in  Chars  every  N seconds. 

B.  Procedures  Calling  SETBLP: 

AND.,.  SEARCH 

C.  Procedures  Called  By  SETBLP: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Chars:  word  containing  0 -3  12-bit  characters 

N : number  of  seconds  per  blip  (binary) 

F.  Values: 

None 

G*  Arguments: 

None  . 

H„  Messages 
None 

♦ 

I.  Length: 

3 words 

J.  Source: 

None 

K.  Files  Referenced:  > — 

None 


O 

ERiC 
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3.  5.  7.13 


\ 


\ . 

3.5.7.13  CHNCOM  ^ 

Purpose 

To  chain  commands 
Description 

A.  Operation:  CHNCOM(J) 

CHNCOM  determines  if  another  command  exists  in  the  command 
buffer.  If  it  exists,  it  is  executed.  If  no  new  command  is  there,  DORMNT 
is  called  if  J is  1,  DEAD  if  J is  0* 

13.  Procedures  Galling  CHNCOM:' 

IFSINT,  QUIT,  REND,  SYSGEN 

C.  Procedures  Called  By  CHNCO11 

None  * 

D.  COMMON^References: 

None 

E.  Arguments: 

J:  0 or  1 

\ ' • 

F.  Values:  ' 

None 

G.  Error  Codes:  J 

None  / *.  ' ^ 

H.  Messages:  i 

None 

I.  Length:  n 

6 words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 


ERLC 
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3. 5.7.  14 


- / 

3,  5 . 7 . 4 GETCOM 

/ ‘ \ 

Purpos e ' , 

To  get  command  argument 

Description  * 

A.  Operation:  Arg  = GETCOM(N) 

GETCOM  sets  Arg  to  be  the  valu'd  of  the  Nth  argument  of  the  user's 
latest  command.  The  command  itself  is  number  0.  The  arguments  may- 
be numbered  1-19,  including  a fence  at  the  end  of  all  octal  7’s.  N must  be 
a binary  number  in  the  location  immediately  after  the  call  to  GETCOM,  not 
a TXH  of  an  address  containing  N.  Therefore;  it  is  not  suitable  for  the 
standard  AED  calling  statement.  (See  GOMARG  in  next  Section.) 

B.  Procedures  Calling  GETCOM;  * 

COMARG,  SYSGEN 

C.  Procedures  Called  By  GETCOM? 

None  ' / ’.  ... 

D.  COMMON  References: 

None 

; , * .•  * 

E.  Arguments: 

N:  sequential  positional  of  argument  desired. 

(Command  itself  is  argument  zero) 

F.  Values: 

Arg  = Nth  argument  of  command  line 

G.  Error  Codes:  » 

- None  , 

H.  Messages: 

None 

I.  Eength: 

.3  words  / 

J.  Source: 


CTSS 

K.  Files  Referenced: 
/ None 


3.  5.  7.  15 
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3.5.7.15  COMARG 


Purpose 

To  get  command  argument 
Description 

A.  Operation:  Arg  = COMARG(N) 

COMARG  is  the  AED  procedure  which  provides  access  to  selected 
arguments  in  the  command  line  as  explained  in  GETCOM  in  previous  section 

B.  Procedures  Calling  COMARG:  | 

DYNAMO,  INIVAR 

C.  Procedures  Called  By  COMARG: 

GETCOM 

D.  COMMON  References:  V? 

None 

E.  Arguments: 

N:  sequential  position  of  desired  argument  on  command  line(binarv' 


F. 


G. 


H. 


K. 


Values:  . 

Arg  = Nth  argurnent  of  command  line 

Error  Codes: 

-377777777777:  no  such  argument  N 


Messages : 
None 


-\ 


I.  Length: 


65g  or  53^  words 

Source: 

CTSS 

Files  Referenced: 
None 


ERIC 
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3.5.7.  16 


3.5.7. 16 


LDOPT 


Purpose 


To  load  option  bits 
Description 

A.  Operation:  LDOPT  (Bits) 

The  value  of  Bits  will  replace  the  current  contents  oi  bits  18-35 
of  {he  option  word  in  A-core.  The  options  are  as  follows 

Search  user  UFD  first  for  command 

Search  user  or  system  files  (not  both)  for  corr ?.r»'  and 
Reset  active  files  for  command 
User  subsystem  trap  enabled 
Inhibit  quit  signals  for  user 
Current  user  program  is  subsystem 
Automatic  save  before  loading  subsystem 
User  is  dialable  (for  attaching  and  .slaving  consoles) 

B,  Procedures  Calling  LDOPT: 

DYNAMO,  QUIT 


1; 
2: 
4:  * 
10: 
20: 
40: 
100: 
200: 


C.  Procedures  Called  By  LDOPT: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Bits:  setting  for  option  word 


F.  Values:* 


None 

G. 

Error  Code: 

None 

H. 

Messages: 

None  I 

I. 

l 

Length:  j 

5 words 

J. 

Source:  i 

CTSS J 

K.  Files  Referenced: 
O None) 


t 

- *• 
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3.5.7.  17  SETSYS 


Purpos e 

To  set  up  subsystem 
Des  c ription 

m Operation:  SETSYS  (Cornrn3.nd,  Mask) 

SETSYS  will  establish  either  a CTSS  command  or  a user’s  saved 
file  as  a subsystem  (specified  by  command)  which  will  take  control  when 
any  of  the  conditions  specified  in  Mask,  are  met. 


B.  Procedures  Calling  SETSYS: 

DYNAMO,  QUIT 

C.  Procedures  Called  By  SETSYS: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Command:  name  of  subsystem  to  be  used 

Mask:  Condition  bits: 

1.  Trap  new  command 

2.  Trap  DEAD  or  DORMNT  /call 
3 # Trap  CHNCOM  if  no  chain 

10.  Trap  on  error  condition 

\ 

\ 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Eength: 

2 words  (resides  in  A-core) 

J.  Source: 

UTIL.IB  BSS 

K.  Files  Referenced: 

None 
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3-5.7.18 


3.5.7.18  GETSYS 


Purpose 

To  get  Subsystem  Condition  Code 
Des  c ription 


A.  Operation: 


GETS  YS(  Word,  Code) 


Upon  return  from  GETSYS,  the  two  arguments  will  contain  informa- 


tion pertaining  to  subsystem  conditions.  The  first  argument  wiLl  contain 
the  name  (in  6-bit  BCD)  of  the  user's  current  subsystem.  The  second  argu- 
ment will  contain  the  condition  bits  (set  during  Intrex  initialization)  which 
specify  under  what  circumstances  the  subsystem  is  to  be  trapped  (in  right- 
most 18  bits),  and  the  corresponding  bit  which  indicates  which  condition 
actually  did  cause  a trap  (in  leftmost  18  bits). 

B.  Procedures  Calling  GETSYS: 

INXSUB 

C.  Procedures  Called  By  GETSYS: 

None 

D.  COMMON  References:  • 

None 

E.  Arguments: 


None 

G.  Error  Codes: 

: None 

H.  Messages: 

None 

I.  Length: 

1 word  (resides  in  A-core) 

• J.  Source: 

.NO  LIB  BSS 

K.  Files  Referenced: 

None 


WORD:  .bed.  character  string 

CODE:  integer 


F.  Values:  ( 


ERIC 
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3.5.7.19  GNAM 


Purpose 

To  identify  calling  program 


Description 

A.  Operation:  Code  = GNAM(  ) 

GNAM  is  used  by  a subroutine  to  determine  the  type  of  program 
which  has  called  it.  GNAM  has  been  rewritten  by  the  Intrex  staff  so  as 
to  return  a value  of  zero,  which  indicates  that  the  type  is  other  than  FAP, 
FORTRAN,  or  MAD. 

B.  Procedures  Calling  GNAM: 

COMARG 

C.  Procedures  Called  By  GNAM: 

None 

D.  COMMON  References:  | 

None 


E, 

Arguments : 
None 

F. 

Values: 

Code  = 0:  pi  xedure  of  type  "unknown" 

G. 

Error  Codes: 
None 

H. 

Message.. : 
None 

I. 

Length: 

.1 

3 words 

/ 

4 

J. 

Si arce: 

3YSNEW  FAP 

K. 

Files  Referenced: 
None 

l 


4d4 


* 
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3. 5.7.20 


3.5.7.20  RSCLCK 
Purpos e 

To  reset  CPU  clock 
Description 

A.  Operation:  RSCLCK(  ) 

RSCLCK  sets  the  B-core  timer  (word  5)  to  zero. 

B.  Procedures  Calling  RSCLCK: 

DYNAMO 

C.  Procedures  Called  By  RSCLCK: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

5 words 

J.  Source: 

CTSS  • 

K.  Files  Referenced: 

None 


\ 
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3.  5.7.21  JOBTM 


Purpose 

To  retrieve  job  time 


Description 

A.  Operation:  JOBTM(Tjgn) 

JOBTM  returns  in  the  word  Tm  the  elapsed  CPU  time  since  the 

first  call  to  RSCLCK. 


B.  Procedures  Calling  JOBTM: 

MONTIM 

C.  Procedures  Called  By  JOBTM: 

Nc  e 

D.  COMMON  References: 

None 


E.  Arguments: 

Tm:  elapsed  time  in  60th's  of  a second 


F.  Values: 
None 


G.  Error  Codes: 
None 


H.  Messages: 
None 


I.  Length: 

25g  or  2110  words 

J.  Source: 

CTSS 

K.  Files  Referenced: 


\ 


None 
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3. 5. 7. 22 


3.3.7.22  GETIME 
Purpose 

To  get  time  of  day 
Description 

A.  Operation:  TIME  = GETIME(  ) 

GETIME  returns  as  its  value  the  elapsed  number  of  60th's  of 
seconds  since  midnight. 

B.  Procedures  Calling  GETIME: 

GETLIN,  GETTM,  MONTIM,  WHEN  • 

C.  Procedures  Called  By  GETIME: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

None 

F.  Values: 

( 

Time'  = time  of  day  in  60th's  of  a second  (binary) 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

4 words 

' t 

J.  Source: 

CTSS 

K.  Files  Referenced: 


497 


None- 
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3.5.7.23  GETTM 
Purpose 

To  get  time  of  day  and  date 
Description 

A.  Operation:  GETTM  (Date,  Time) 

GETTM  returns  the  date  as  a BCD  value  in  its  first  argument 
and  the  time  of  day  as  a BCD  value  in  its  second  argument.  It  obtains 
these  values  from  GETIME. 

B.  Procedures  Calling  GETTM: 

INIMON 

C.  Procedures  Called  By  GETTM: 

GETIME 

D.  COMMON  References: 

None 

E.  Arguments: 

Date:  BCD  value  of  the  form  MM/DDt 

Time:  BCD  value  of  the  form  HHMM.  M 

F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 

None 

I.  Length: 

65g  or  53jq  words 

J.  Source: 

CTSS 

K.  Files  Referenced: 

None 
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3 . 


3.  5.  7. 24  SCLS 


Purpos  e 

To  set  up  a command  list  in  a command  buffer 
Description 


A.  Operation: 


SCLS  (TAB  (n)  BUF) 


The  array  working  backward  from  TAB(n)  toward  1 A 13(0)  is  trans- 
ferred to  the  CTSS  command  buffer  number  BUF  until  a fence  of  a^ifcinary 
l's  is  found.  If  BUF  is  a zero.,  the  current  command  buffer  will  Be£41}ed. 
Since  command  buffers  are  twenty  locations  in  length,  Intrex's  subsystem, 
INXSUB,  uses  TAB  (19)  as  a SCLS  argument  to  load  the  current  buffer  with 
arguments  to  a "Resume  Intrex"  command  which  were  previously  set  up  in 
the  array  TAB. 

A call  to  NCOM  (Section  3.5.7.25)  will  then  cause  the  command  and 
its  arguments  to  be  executed. 

B.  Procedures  Calling  SCLS: 

INXSUB 

C.  Procedures  Called  By  SCLS: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 


F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages: 


TAB  (n): 
BUF: 


array  location 

CTSS  command  buffer  no- 


None 
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ERIC 
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I.  Length: 

20g  or  16  iq  words 

J . ..  Source: 

CTSS 

K.  File  References: 

None 
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3.5.7.2b 


3.5.7.25  NCOM 


/ 


Purpose 

To  execute  specified  CTSS  command  from  program 


COM  is  a BCD  integer  containing  the  name  of  a CTSS  command. 


PROG  is  a BCD  integer  containing  the  first  argument  to  be  used  with  COM. 
PROG  replaces  the  existing  first  argument  of  the  current  command  buffer 
before  COM  is  executed.  ; 


In  the  Intrex  subsystem  INXSUJ3*  the  command  in  COM  will  be 


RESUME  and  the  argument  in  PROG^~  v/’jLfiTbe  INTREX.  The  other  neces- 
sary arguments  will  have  been  set  up  in  the  command  buffer  by  the  proce- 
dure SC  LS  (Section  3.5.7.24). 

3.  Procedures  Calling  NCO!M: 

INXSUB 

C.  Procedures  Called  by  NCOM: 

None 

D.  COMMON  References: 

None 

E.  'Arguments: 


F.  Values: 

None 

G.  Error  Codes: 

None 

H.  Messages:  / 

None 

I.  Length: 


Des  c ription 


A.  Operation: 


NCOM  (COM,  PROG) 


COM: 

PROG:  BCD  coded  program  name 


4 words  (resides  in  A-core) 


J.  Source: 
CTSS 


ERIC 


K.  File  References 
None 


3.  6.  1.  1 
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3.  6 AEE>J!Jtilities 

3.  6.  1 Miscellaneous-Utilities 

3. 6.  1.  1 -WFLX 

Purpose 

To  print  a line  with  carriage  return 
Description 

A.  Operation:  WFLX  (.  BCI.  /string/) 

WFLX  is  a convenient  means  for  printing  a pre-set  character 
string , WFLX  will  use  WRFLX  to  print  the  string  defined  by  the  AED 
string  expression  defined  by  . BCI. 

B.  Procedures  Calling  WFLX: 

CNTLOC,  FREE,  FRET,  PUTOUT,  TYPASH 

C.  Procedures  Called  By  WFLX: 

WRFLX A 


D. 

COMMON  References: 

None  „ 

E. 

Arguments: 

. BCI.  pointer 

F. 

Values:  4 
None 

G. 

Error  Codes: 

None 

H. 

Messages:  ! 

None 

I. 

♦ 

Length: 

2 words  + the  36g  or  30  ^ of  WFLXA 

J. 

Source:  23 

AEDLB1  BSS 

K. 

Files  Refe renced: 

None 

502  - 
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3.6.  1.2 


3.6.  1.2  WFLXA 

Purpose 


To  print  a line 
Description 

A.  Operation:  f WFLXA( . BCI.  /string/) 

WFLXA  is  the  same  procedure  as  WFLX,  except  that  it  does  not 
provide  a final'  car riage  return. 


B.  Procedures  Calling  WFLXA: 

CNTLOC,  FREE,  FRET 

/ 

C.  Procedures  Called  By  WFLXA: 

WRFLXA 

D.  COMMON  References: 

None 


E. 

F. 

Cr. 

H. 

I. 

J. 


Arguments: 

None 

Values : 

None 

Error  Codes: 

None 

Mes  sages : 

None 

Lengthr 

/ 

36g  or  words 

Source: 

AEDLB1  BSS 


K.  Files  Referenced: 


503 


None 
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} 

3.  6.  1. 3 ISARGV 
Purpose 

To  extract  an  argument  from  a subroutine  call 
Des  c ription 

A.  Operation:  A rg  = ISARGV  (Return*  n,  Mask) 

ISARGV  checks  for  the  existance  of  an  nth  argument.  If  there 
is  an  nth  argument,  it  is  returned  as  the  value  of  ISARGV.  If  there  is 
not  an  nth  argument,  ISARGV  returns  Mask  as  its  value. 

B.  Procedures  Calling  ISARGV: 

NEXITM,  TYPEIT/.C.  ASC  * 

C.  Procedures  Called  By  ISARGV: 

None 

D.  COMMON  References: 

None 

E.  Arguments: 

Return:  AED  label  of  exit  code  for  subroutine 

n:  position  number  of  requested  argument 

Mask:  any  value 

F.  Values: 

Arg  — contents  of  argument  n or  value  of  Mask 

G*  Error  Codes: 

None 

H.  Messages: 

None 

I.  Lerlgth: 

60g  or  words 

\ >, 

J.  Source: 


' AEDLB1  BSS 
K.  Files  Referenced: 
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3.6.  1.4 


3,6.  1.4  IS  ARG 
Purpose 

To  check  for  existance  of  an  argument  in  a subroutine  call 
Description 

* Operation:  Bool  = IS  ARG  (Return,  n) 

If  n is  positive,  ISARG  checks  the  nth  position  after  the  call 
to  see  if  it  is  an  argument.  If  n is  negative,  i4-  checks  the  first  through 
nth  positions  to  make  sure  all  are  arguments.  If  all  checked  positions  are 
arguments,  the  procedure  exits  with  the  value  TRUE;  otherwise,  FALSE. 


B. 

C. 

D. 

/ 

E. 


F. 

G. 

■v 

H. 

I. 

J. 

K. 

O 

ERIC 


Procedures  Calling  ISARG: 

NEXITM 

Procedures  Called  By  ISARG: 

None  ^ 

COMMON  References: 

None 

r 

Arguments: 

Return:  AED  label  for  exit  code  for  subroutine  calling  ISARG 

(implicitly  declared  as  type  label) 

n:  position  number  of  argument  \ 

Values  : 

Bool  = True  if  argument(s)  exist(s);  false  otherwise. 

Error  Codes: 

None 

Messages:  \ 

None 

Length:  j 

60o  or  48  in  words  (shares  code  with  ISARGV) 
o X U 

Source: 

AEDLBi  BSS 

Files  Referenced: 

None 

505 
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3. 6.  1.5  GETP 


\ 


Purpos e 

To  get  ARDS  parameters 
Description 

A.  Operation:  GETP(ID,  N) 

This  procedure  reads  the  cur  rent  values  of  the  WRFLX  screen- 
size  parameters  for  the  ARDS  console.  A maximum  of  f ou i;--pa. f a rwcxe r s 
can  be  read  into  the  array  ID,  the  actual  number  being  afiecified  by  N. 
They  are  stored  in  this  order;  line  count,  maximum  lines  per  page,  y- 
coordinate  of  the  top  of  the  page,  number  of  characters  per  line.  The 
procedure  INXCON  (Section  3^  1 . 3 . 2 ) uses  GETP  to  inspect  the  Maximum 
lines  per  page  which  is  set  to  30  for  the  Intrex  console  and  is  greater  than 
30  for  ordinary  ARDS  consoles. 

B.  Procedures  Calling  GETP: 

INXCON 


C. 

D. 

E. 

f 

F. 

G. 

H. 


J. 


K. 


O 

ERIC 


Procedures  Called  By  GETP: 

None 

COMMON  References: 

None 

Arguments : 

ID:  4-word  array 

N:  number  of  words  (1-4)  to  be  read 

Values : 

None 

Error  Codes: 

None 

Messages: 

None 

Length: 

•s 

8 

Source: 

NO  LIB  l v UTILIB 

F iles  Referenced:, 

None 


17 « or  2 1 


words 
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3. 6.  1. 6 


3.6.  1.6 

Purpose 

To  perform  binary  to  spread-octal  conversion 
Description 

A.  Operation:  Bcdptr  = OCTTOI  (Val) 

OCTTOI  converts  the  binary  number  Val  to  a BCD-coded  octal 

representation.  Instead  of  returning  the  actual  converted  value,  as  does 
OCABC  (see  Section  3. 5. 6. 4),  it  returns  a pointer  to  the  value,  with  -a  word 
count  in  the  decrement. 

B.  Procedures  Calling  OCTTOI  : 

CNTLOC,  FREE,  FREZ 


?T  o< 


C.  Procedures  Called  By  OCTTOI: 
None 


D,  COMMON  References: 
None 


E.  Arguments: 

Val:  binary  number 

F.  Values:  , 

Bcdptr  = pointer  to  octal  representation 

G-  Error  Codes: 

None 

H.  Messages: 

r 

None 

I.  Length: 

2 6g  or  22^q  words 

J.  Source: 

AEDLB1  BSS 

K.  Files  Referenced: 

.None 

• -5Q7 


\ 
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IV.  DATA  BASE  GENERATION 


This  chapter  describes  the  procedural  steps  and  programs  used  in 
the  creation  and  updating  of  the  Intrex  data  base.  The  format  is  basically 
similar  to  that  of  Chapter  III.  Part  A provides  a category  of  information 
not  needed  in  Chapter  III  - "usage"  of  the  program  being  described.  Since 
we  are  here  describing  entire  programs  and  not  just  subroutines,  the  proper 
activation  of  each  program  is  of  obvious  importance.  Part  B describes  the 
program's  operation.  In  PartC,  "Files  Referenced",  the  names  of  files  used 
as  either  input  or  output  are  listed.  The  conventions  employed  in  Chapter  III 
to  designate'fixed  or  variable  names  of  files  are  used  here  as  well.  Part  D 
contains  a list  of  messages  which  may  be  produced  by  the  program.  These 
messages  are  numbered  and  references  to  them  in  Part  B are  made  by  the 
corresponding  number  appearing  in  parentheses.  Message  parts  which  are 

variable  are  again  expressed  symbolically  and  underlined. 

Part  E lists  the  source  files  which  contain  the  major  parts  of  the 
program.  There  are  usually  several  utility  procedures  also  required  which 
are  obtained  from  the  library  program  files  at  load  time. 

Part  F shows  the  CTSS  commands  needed  to  create  and  set  aside  an 
executable  program  file* 

, The  process  of  updating  the  data  base  is  a lengthy  one  and  includes 

many  steps.  A complete  list  of  these  steps  is  given  in  Appendix  H.  In  brief, 
the  process  is  as  follows: 

Input  files  are  generated  on-line*  by  typists  keying  the  catalog  record 
data  supplied  by  the  Intrex  catalog  group.  Computer  printouts  of  the  inputare 
proofread  and  corrections  are  made  via  an  on-line  editing  program.  The  pro- 
gram DRY RUN  (Section  4.  1)  is  run  on  a batch  of  edited  files  to  detect  further 
errors  in  format  and  another  editing  pass  is  made  to  remove  the  errors  found 
by  DRYRUN. 

The  program  WETRUN  (Section  4.  1)  is  run  on  the  corrected  input  files 
to  produce  new  catalog  file  segments  and  Inverted  File  "shreds The  new  cat- 
alog segments  are  condensed  to  digram-coded  representation  by  MASH 
(Section  4.2).  The  subject/title  shreds  are  phrase  decomposed  and  stemmed 


During  times  when  the  computer  is  down,  files  are  punched  off-line  on  paper 
tape  and  later  brought  to  the  computer..,.  - 
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by  the  program  STEMER  (Section  4.3).  These  stemmed  shreds  and  author 
* shreds  are  sorted  alphabetically  on  the  stem  or  name  by  SORT  (Section  4.4). 

The  sorted  shreds  are  added  to  the  current  set  of  Inverted  File  seg- 
ments by  IFGENS  (subject/title  file)  and  IFGENA  (author  file)  (Section  4.  5). 
The  new  set  of  Inverted  File  segments  is  then  checked  for  format  and  count 
errors  by  IFTEST  (Section  4.6). 

An  ASCII  printout  of  the  Inverted  Files  may  be  obtained  by  generat- 
ing a formatted  ASCII-coded  disk  file  via  the  program  IFLIST  (Section4.7) 
and  then  requesting  an  off-line  printout  of  that  file. 


4.1  DRYRUN,  WET  RUN 


Purpos  e 

To  prepare  input  data  for  inclusion  in  data  base 
Des  c ription 

The  formatting  program  transforms  disk-stored  catalog 
records  into  files  for  the  Intrex  retrieval  system  by:  (1)  updating  the  Cat- 

alog Directory  file  (CAT DIR  FILE),  (2)  updating  the  Fiche  Directory  (FICHE 
DIRECT),  (3)  appending  new  records  to  the  Catalog  Record  files  (CRxxx 
M2 51  00),  and  (4)  creating  two  files  of  search  terms:  AUTHOR  date,  which  con- 

tains the  authors*  namesand  SUBTIT  date  which  contains  the  subject  and  title  terms. 


A.  Usage:  r DRYRUN 

r WETRUN 

The  formatting  program  resides  in  Comfil  4 as  two  different  versions, 
called  DRYRUN  SAVED  and  WETRUN  SAVED.  DRYRUN  SAVED  is  loaded 
with  a dummy  version  of  WRWAIT  and  BFWRIT.  DRYRUN  will  generate  zero- 
length  SUBOTT  date  and  AUTHOR  date  files,  but  will  not  write  any  data  ondisk. 
It  is  used  to  detect  errors  in  the  input  files.  WETRUN  contains  active  disk 
procedures  WRWAIT  and  BFWRIT,  and  is  used  for  the  actual  updating  of  the 


catalog . 

Both  programs  require  a*  file  (PRE  FORMAT)  which  contains  the 
names  of  the  input  files.  Each  such  file  contains  about  10  catalog  recox  ds  , 
The  first  name'of  these  files  has IR^format  W/.xxxx,  where  xxxx  is  the  file 
number.  The  nature  of  these  names  is  not  checked  by  the  program,  but  if  a 


509 
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file  whose  name  appears  in  PRE  FORMAT  is  not  found,  an  error  message 
is  printed. 

The  program  gives  on-line  indications  of  its  progress  and  of  errors 
that  it  finds.  The  design  of  the  program  is  aimed  at  (1)  continuing  processing 
as  long  as  possible  and  (2)  avoiding  the  admission  of  bad  data  into  the  cata- 
log record  file. 

The  operational  steps  involved  in  running  DRYRUN  and  WETRUN  are 
listed  in  Appnedix  H (Steps  1-5).  \ 

B.  Operation: 

The  catalog  records  which  WETRUN  receives  as  input  are  organized 
so  as  to  be  easily  read  and  edited.  The  task  of  the  WETRUN  program  is  to 
re-format  this  data  so  that  it  may  be  efficiently  handled  by  the  computer.  All 
of  the  fields  ( except  field  5,  the  fiche  location)  are  copied  into  a re-formatted 
catalog  record  which  lias  three  sections.  The  first  section  if  four  words  long 
and  contains  data  whicl)  has  been  converted  to  fixed- length,  binary-encoded 
fields.  The  second  section  contains  pointers  to  ASCII-encoded  variable-length 
fields  which  comprise  the  third  section  of  the  recprd.  The  re-formatted  cata- 
log record  is  appended  to  the  current  segment  of  the  catalog.  If  this  segment 
exceeds  a certain  length  threshold,  then  a new  segment  is  created.  A pointer 
to  the  record,  specifying  its  segment  number,  word  position  and  length  is 
stored  in  wordD+  10  of  CATDIR  FILE,  where  D is  the  document  number.  The 
data  in  field  5 (fiche  location)  is  compressed  into  a one-word  binary  format 
and  stored  in  word  D of  FICHE  DIRECT.  WETRUN  generates  special  for- 
matted records  called  Shreds  from  fields  21,  24  and  73  (author,  title  and  sub- 
ject). These  shreds  will  be  used  by  other  programs  to  generate  new  entries 
in  the  Inverted  File.  The  author  ^hreds,  which  contain,  one  author  per  shred, 
are  written  in  the  file  AUTHOR  date.  The  subject  shreds,  which  contain  one 
subject  term  in  each,  and  the  title  shreds,  containing  an  entire  title,  are 
Written  into  SUBTIT  date. 

The  WETRUN  program  processes  a catalog  record  in  two  basic  phases. 
First  it  reads  in  a record  and  constructs  the  re-formatted  record  in  core.  If 
no  fatal  errors*  are  encountered  in  this  phase,  it  continues  to  the  second 
phase:  appending  the  record ‘to  the  catalog  segment^updating  the  Catalog  Direc- 
tory, and  generating  shreds .,  Otherwise,  it  goes  on  to  process  the  next  record 


O *See  Part  D of  this  section. 
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without  writing  any  data  on  disk. 

The  main  procedure  FORFOR  calls  OPERUN  to  open  the  output 
files  and  the  file  PRE  FORMAT,  which  contains  the  list  of  input  files.  r 

OPERUN  also  performs  general  initialization  functions.  The  main  proc-. 
essing  loop  begins  with  the  call  to  OPEINP  by  FORFOR.  OPEINP  extracts 
the  next  available  name  from  the  file  PRE  FORMAT  and  opens  that  file. 
FORFOR  then  calls  REAREC,  which  is  the  basic  control  module  for  the 
firs£  phase  of  proc  essing.  REAREC  calls  READON,  which  steps  through 
the  catalog  record  looking  for  fields.  Vvr hen  a new  field  is  found,  the  pro- 
gram transfers  control  to  the  appropriate  subsection  for  that  field.  If  the 
field  is  field  5 (fiche  location),  FGEN  will  be  called  to  update  the  file 
FICHE  DIRECT.  If  the  field  is  to  be  converted  to  binary,  GULP  will  be 
called  to  perform  the  conversion  and  STASH  will  be  used  to  store  it  in  the 
buffer  used  for  the  first  sectior.  of  the  catalog  record.  If  the  field  is*  to  be 
left  as  an  ASCII  string,  STUFF  is  called  to  copy  it  into  the  buffer  for  Sec- 
tion 3 and  to  generate  a pointer  to  it.  READON  'p.nd  STUFF  both  use  the 
procedure  REACHA  (Leave,  Labl3)  to  extract  characters  from  the  input 
file.  REACHA  returns  via  Leave  when  it  encounters  the  end  of  a field  and 
via  Labl3  if  there  are  no  more  characters  in  the  input  stream.  Otherwise, 
REACHA  returns  normally. 

If  REAREC  returns  control  to  FORFOR  without  having  encountered 
a fatal  error,  FORFOR  calls  CLOREC  to  carry  out  the  second  phase  of  proc- 
essing. CLOREC  calls  AUTSHR,  TITSHR  and  SUBSHR  to  generate  author, 
title  and  subject  shreds  and  to  write  them  out  and  disk  in  the  files  AUTHOR 
Date  and  SUBTIT  Date.  CLOREC  calls  CATRAD  to  append  the  formatted  re- 
cord to  the  current  catalog  segment  and  to  enter  a pointer  to  it  in  CATDIR 
FILE.  If  the  length  of  the  segment  exceeds  a certain  threshold,  a new  seg- 
ment is  created. 

If  an  end  of  file  has  not  been  encountered  in  the  current  input  file, 
REAREC  is  called  to  process  the  next  record.  Otherwise  OPEINP  i?  called 
' to  extract  the  next  name  from  PRE  FORMAT  and  to  open  the  file.  If  OPEINP 
reports  that  the  list  of  files  is  exhausted,  CLORUN  is  called  to  close  thefrun. 


\ 


< 
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C.  Files  Referenced: 

CAT  DIR  FILE 
C Rxxx  M2  5100  ' 

SUBTIT  date 
AUTHOR  date 
FICHE  DIRECT 

D - Me  s s ag  e s : 

_ ^ AUTSHR 

1.  MToo  many  authors  in  record.11 

2.  ’’Author  shred  overflow"**55* 

3.  ’’Bizarre  error  making  author  shreds 

4.  ’’Write  error  for  author  shreds”** 

i. 

/ 

CANERR  ^ 

1.  "Possible  error  in  shred  type"  (back  space) 

x, 

CAT  1 

1.  "Nth  record  lacks  a record  number  N = n"* 

2.  "record  already  in  Catdir  File* 

C&T  2 

1.  "Error  in  opening  Catrec  File"**  ' 

CLOREC 

1.  "The  1st  N subject  terms  have  been  processed  where  N = n.  " 

2.  "Subject  terms,  first  N author  terms  have  been  processed  N = n.  " 

3.  "The  subject  and  author  terms  have  been  processed." 

4.  "Error  in  writing  or  reading  Catrec  File  or  Catdir  File."** 

REAREC 

1.  "Field  5 missing'! 

2.  "Record  exceeds  max.  length  of  4095.* 

REA DON 

1.  "Erroneous  field  number."* 

2,  "Two  record  numbers  in  same  record.—  .—  may  be  missing."* 


See  F'ootnotes  at  the  end  of  this  section. 

3 


-aborting  — eof  encountered” j 
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3.  "Slot  filled  in  fiche  file" 

4.  "Bad  fiche  field" 

5.  " — missing  — record  skipped.* 

FORFOR 

1.  "Record  has  not  been  processed."  * 

/ 

2.  "An  input  file  has  been  run.  Time  =_t."  j 

3.  "File  closing  error  in  (format)."** 

4.  "No  file  created  for  this  record."* 

GULP 

1.  "bizarre  error  may  have  occurred.  Please  examine  the  last  record 

in  record  file.  Files  may  have  been  unprocessed  after  it.  —input  eof."*-f 

OPEINP 

t 

1,  "Files  in  "pre  format"  have  been  run" 

2.  "Error  in  opening  input  file."** 

OPERUN 

1Q  "File  in  "Pre  Format"  not  found."** 

2.  "Name  of  Catrec  File  not  found  in  Catdir  File."** 

3.  "Catdir  file  end  of  file  error  (OPERUN). 

4.  "Error  in  opening  input  files."*5* 

EGAD 

1.  "Error  in  closing  out  Catdir  File."**  ( 


ROTATE 

1.  ['Error  in  reading  input  file.  "** 
CEO  RUN 

1,  "An  input  file  has  been  run" 

2.  "File  closing  error."** 

QPESHR 

1.  "Field  missing." 

CHEWOR 


"Bizarre  program  error-run  aborted,  but  files  saved."  f 

"Illegal  backspace" 

«• 
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Fig.  4.1  DRYRUN/WETRUN  (Main  Flow  of  Control) 
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STUFF 

<* 

1.  "Too  many  fields."* 

5UBSHR 

1.  "Too  many  subj.  terms  — Processing  halted  at  term  63." 

2.  "Subject  shred  buffer  overflow  - rec  aborted."*** 

3.  "bizarre  error  in  subj.  shredmaking  — rec  aborted. "f 

4.  "File  writing  error  (subj.  shred)  — run  aborted."* 

5.  "Difficulties  in  making  shred  number  = n."*** 

TITSHR 

1.  "Bizarre  error  in  TITSHR-  record  abortedVf 

2.  "Title  shred  buffer  overflow — record  aborted."*** 

3.  "Prob.  in  writing  title  shred  operations  ended."** 

ERRFIE 

1.  "Error  in  making  shred."** 

E.  Source: 

WETRUN  and  DRYRUN  are  constructed  from  about  20  separate 
AED  source  files.  These  files  are  listed  in  Fig.  4.2. 

F.  Loading  ‘Instructions: 

• Load  files  have  been  prepared  for  both  WETRUN  and  DRYRUN  (see 
Fig  . 4 2 ) . 

LAED  - ncload  - WETRUN  (or  DRYRUN) 

SAVE  WETRUN  (or  DRYRUN) 


* 


No  data  will  be  written  out  for  this  record  and  processing  will  begin  on 
the  next  catalog  record. 

Run  is  aborted. 

Processing  of  this  catalog  record  will  stop,  but  some  subject,  title, 
or  author  shred  have  been  written  out  into  the  shred  files.  The  re- 
cord has  not  been  appended  to  the  catalog. 

This  kind  of  error  condition  can  #nfi.y“he  generated  by  a program  bug. 

i 
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DRYRUN  LOAD 


WETRUN  LOAD 


FORFOR 

CATRAD 

GULFOR 

VARFOR 

FGEN2 

DAN 

ASCINT 

NEXITM 

REAFOR 

OPERUN 

E3JNFOR 

CLOREC 

STOFIV 

SHRFOR 

AUTFOR 

TITFOR 

SUBFOR 

SRCH 

MASAGE 

I/O 

(SRCH) 

UTILIB 

(SRCH) 

STRLIB 

(SRCH) 

(SQZ) 

NEWLB1 


Fig.  4. 


FORFOR 

CATRAD 

GULFOR 

VARFOR 

DAN 

ASCINT 

NEXITM 

REAFOR 

OPERUN 

RUNFOR 

CLOREC 

STOFIV 

SHRFOR 

AUTFOR 

TITFOR 

SUBFOR 

SRCH 

MASAGE 

(SRCH) 

UtlLIB 

(SRCH) 

STRLIB 

(SRCH) 

(SQZ) 

NEW  LB  1 


Loading  Sequence 
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4.2  MASH 
Purpos  e 

To  compress  catalog  files 


Des  c ription 

MASH  is  used  to  convert  catalog  records  generated  by  WETRUN  into  a more 
compact  format.  The  ASC II- enc oded  fields  2,  20,  37  and  46  are  converted 
to  fixed-length  binary- enc  oded  fields.  All  other  ASCII  fields  are  converted 
to  dig  ram- encoded  ASCII.  That  is,  t^o  contiguous  nine-bit  ASCII  characters 
are  represented^  by  one  nine-bit  digram  encoded  character  whenever  possible. 
Since  a nine-bit  byte  allows  512  different  codes  and  the  ASCII  character  set 
uses  only  128,  a considerable  number  of  combinations  of  characters  can  be 
encoded. 

A.  Usage: 

R MASH  M25100  INTREX  first  last 

MASH  uses  the  directory  SORTED  M25100  to  convert  a segment 
CRxxx  M2 5 1 00  to  the  digram -encoded  segment  CRxxx  INTREX.  The  process 
of  creating  a directory  for  MASH  involves  the  following  steps: 

1.  The  directory  is  generated  out  of  the  newly-updated  file,  CATDIR 
FILE. 

CATDIR  FILE  must  be  shortened  by  using  the  CTSS  procedure 
SPLIT.  The  output  of  SPLIT  is  CAT  FILE: 

SPLIT  CATDIR  FILE  (WDCT)  *864  CAT 

2.  The  pointers  in  CAT  FILE  are  ordered  according  to  document 
number.  They  must  be  re-ordered  according  to  the  position  of  the 
records  in  the  catalog  files.  Also,  empty  slots  (for  documents  not 
yet  included  in  the  data  base)  must  be  removed.  The  following  com- 
mand produces  a file  SORT  O^T  which  is  ordered  on  segment  and 
word  numbers,  with  empty  words  removed: 


R SORTER  CAT  FILE  777000  0777777  0 000000  000000 

3.  SORT  OUT  is  renamed  SORTED  M25100: 

RENAME  SORT  OUT  SORTED  M25100 

If  CATDIR  INTREX,  the  catalog  directory  for  the  compressed  catalog, 

sfhvvi.Cs!'  than  the  newly  updated  CATDIR  FILE,  then  it  must  be  lengthened  by: 

a , Finding  the  length  of  CATDIR  FILE  and  CATDIR  INTREX  by 
calling  FSTATE: 
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CALL  FSTATE  CATDIR  FILE 
CALL  FSTATE  CATDIR  INTREX:  • 

b.  Using  EXTEND  to  lengthen  CATDIR  INTREX: 

R EXTEND  CATDIR  INTREX  Len. 

A copy  of  CATDIR  INTREX  called  CATDIR  M25100  must  be 


MOVE  CATDIR  INTREX  CATDIR  M25100. 

This  file  is  not  actually  used  for  anything,  but  it  is  needed  to  accom- 
odate a fluke  in  MASH.  The  last  segment  of  CRxxx  INTREX  must  be  deleted. 

DELETE  CRxxx  INTREX 

This  segment  will  be  completely  re-written  by  MASH 

MASH  is  now  resumed. 

R MASH  M2 5100  INTREX  first  last 
"M25100"  is  the  second  name  of  the  uncompressed  catalog  records  and 
"INTREX"  is  the  second  name  of  the  first  segment  to  be  processed  and 
"last"  is  the  number  of  the  last  segment. 


1.  The  directory  SORTED  M25100  is  searched  word-by-word  for  the 
first  occurrence  of  the  segment  indicated  by  "first". 

2.  When  a po  ill  ter  to  the  specified  segment  is  found, ^the  segment  is 
opened  and  the  firstword  of  the  segment  is  read. 

3.  The  catalog  record  is  read  into  memory. 

4.  A check  is  made  for  six  octal  7 *s  in  word  5 of  the  record. 

5.  MASH  steps  through  the  lists  of  fields  in  the  header.  Fields  2,  20, 
37  and  46  are  converted  to  binary  and  placed  in  word  3 of  the  new 
record.  All  others  are,  converted  to  digram  encoded  characters. 
The  lengths  of  fields  67,  7 0,  71,  and  73  are  added  to  arrays. 

6.  The  record  is  written  out  in  CRxxx  INTREX  and  control  returns  to 


7.  When  MASH  has  finished  with  a segment,  the  next  segment  is  opened 
and  the  process  continues. 

8.  When  segment  "last"  has  been  processed,  MASH  prints  the  con- 
tents of  its  statistical  table. 


c reated . 


B.  Operation: 


step  3 
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C.  Files  Referenced: 

SORTED  M2 5100 
CAT  DIR  IN  T REX 
C Rxxx  M 2 5100 
CRxxx  INTREX 
CAT  DIR  M2  5100 

V 

D.  Messages: 

1.  "No  old  CAT  DIR  second  name  given" 

2.  "No  new  CAT  DIR  second  name  given" 

3.  "Input  file  is  CAT  DIR  (name)" 

Output  file  will  be  CATDIR  (name)" 

4„  "File  CATDIR  (name)  does  not  exist" 

5.  "Length  of  CATDIR  M25100  does  not  equal  length  of  CATDIR 

INTREX" 

6.  "Output  files  will  not  have  name  (name)" 

7.  "File  CRxxx  not  found" 

8.  "Duplicate  entry  for  record  number  x" 

9.  ■ "Fence  not  found  in  record  x" 

File  is  CRxxx  M2 5 100 

- _y  current  catdir  entry 

_z  last  record  written 

******  File  is  not  good  ****❖" 

10.  "Field  number  x put  in  lower  body,  not  upper. 

File  is  CRxxx  INTREX  Record  number  n 

11.  "Finished  with  file  CRxxx  INTREX 

Length  is  n" 

12.  "Finished  Last  file  is  CRxxx  INTREX.  Total  document  count  x" 

13.  "FILE  Error" 


(000  < xxx  < 295) 
(000  < xxx  < 295) 


E.  Source:  « 

MASH  ALGOL 
STAT  ALGOL 
DTABLE  ALGOL 


F.  Loading  Procedure: 

LAED  -ncload-  (GET)  MASH 
SAVE  MASH 

The  load  file  MASH  LOAD  contains  the  following: 


MASH 

DTABLE 

STAT 

(SRCH) 

'TOLrii 
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4.3  STEMER  SAVED 


Purpose  3* 

To  decompose  and  stem  subject/title  terms. 

Description 

The  shreds  produced  by  WETRUN  (see  Section  4.  1)  from  the  sub- 
ject terms  and  title  fields  of  the  catalog  records  being  processed  contain 
the  entire  phrases  used  in  those  fields.  STEMER  reads  these  shreds,  dis- 
sects the  phrases  into  individual  words,  stems  each  word  (encoding  the 
endings  removed),  and  writes  new  single-word  shreds.  These  new  shreds 
are  used  to  update  (enlarge)  the  Inverted  File  later  in  the  generation  proc- 
ess (see  Section  4.5). 

' < \ 

A.  Usage:  R STEMER  name2  \ 

The  argument  name2  must  be  the  second  name  of  the  shred  file 
whose  first  name  is  SUBTIT.  This  second  name  is  the  date  when  WETRUN 
created  the  shred  file  and  has  the  form  MMDDYY  in  6-bit  BCD  code.  These 
names  are  assigned  by  WETRUN  as  it  creates  the  shredfile.  STEMER 
creates  a new  file  name  STEMED  name2. 

B.  Operation: 

STEMER  SAVED  performs  the  following  steps  in  its  processing  of 
the  subject/title  shred  file. 

Read  the  second  name  of  the  file  from  the  command  argument 
name  2. 

Initialize  the  ending  table  via  INIEND. 

Open  the  input  file  for  reading. 

Open  the  output  file  for  writing. 

Read  the  first  word  of  a shred  from  the  shred  file  into  core. 

Take  the  length  of  the  shred  from  the  first  word  read  in  Step  5. 

Read  the  rest  of  the  shred  as  determined  by  the  length  obtained 
in  Step  6. 

Dissect  and  stem  the  phrase  contained  in  the  stem  just  read  by 
calling  the  subroutine  STEMER. 

Write  the  new  s omed  shreds  created  by  the  subroutine  STEMER 
into  the  output  1 ie 

Return  the  usee  s*  «ed  array  to  free  storage. 

If  more  input  shreds  remain  to  be  read,  return  to  Step  5. 

If  all  input  shreds  are  processed,  close  the  files  and  print  ending 
count  statistics  (11  and  12)  by  calling  SHOW. 

52%"' 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

it". . 

1 1. 
12. 
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Some  of  the  more  important  procedures  contained  in  STEMER 
SAVED  are  described  below. 

IN1END(  ):  This  procedure,  called  in  Step  2 above,  reads  a file  of 

common  English  word  endings  named  ENDING  TEST2 . These  endings  were 

ft 

derived  from  the  work  on  stemming  of  J.  Lovins"  The  ending  file 
having  been  read  into  core,  a table  of  pointers  is  constructed  by  calling 
the  procedure  ENDTAB.  These  pointers  point  to  the  various  groups  (by 
length)  of  the  endings  in  the  file.  The  pointer  table  acts  as  a connection 
between  an  ending  code  (described  below)  and  the  corresponding  ending 
in  the  file.  The  table  is  stored  in  the  top  of  a large  array  (47  1 words),  the 
balance  of  which  is  used  for  statistical  data  gathered  during  stemming  of 
the  shreds.  The  address  of  this  pointer  table  is  returned  to  the  main  pro- 
g ram  (STEMER)  a, 3 a value  of  INIEND. 

STEMER:  To  avoid  confusion  between  STEMER,  the  main  program 

resumed  at  command  level,  and  the  procedure  STEMER,  we  shall  refer 
to  the  procedure,  hereafter,  as  STEMER  and  the  entire  module  as  STEMER 
SAVED.  STEMER  accepts  an  argument  OSHRED  containing  a pointer  to  the 
original  (phrase)  shred  and,  through  repeated  calls  to  the  sub-procedure 
NEXITM,  extracts  each  word  from  the  phrase.  Pointers  to  these  single 
words  are  pas?&dTo_another  procedure,  STEM,  which  does  the  actual 
matching  of  the  endings  in  the  ending  file  against  the  end  of  the  word  in 
question.  NEXITM  and  ST  Elk  are  the  same  routines  used  by  the  Intrex  Sys- 
tem and  are  des c ribe d in  Sec  tions  3.2.  1.4  and  3 . 2 . Z . 5 respective  ly . 

STEM  returns  a pointer  to  the  stemmed  word  to  STEMER,  which  adds 
it  to  an  array  of  stemmed  shreds  being  created  from  the  phrase  shred  in 
prqcess.  STEM'also  returns  (ii^  its  second  argument)  a code  representing 
the  ending  removed  from  the  original  wopd.  This  is  a lZ-bit  code  where  bits 
1-4  contain  the  number  of  characters  in  the  ending  and  bits  5-12  contain  the 
position  of  that  ending  within  its  length  group.  As  each  ending  is  removed, 
an  associated  counter  is  inc  rerherfted  to  keep  track  of  the  number  of  times 
eacli  ending  is  used.  . • 

Both  the  stems  and  the  ending  codes  of  the  entire  phrase  are  stored 
in  their  separate  arrays  by  STEMER  until  all  the  words  in  the  phrase  are 
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stemmed.  Then  they  are  extracted  from  these  arrays  one  by  one  and  a 
new  shred  is  created  from  each  by  forming  a field  one  containing  the  stem, 
a field  two  containing  a copy  of  the  reference  in  the  original  shred,  and 
a field  three  containing  the  ending  code.  The  copied  reference  is  modified 
to  contain  the  word  number  (within  the  phrase)  of  the  stem  whose  shred  is 

r 

being  created. 

The  logic  exists  within  STEMER  to  create  a new  shred  out  of  the 
entire  stemmed  phrase  as  well  as  the  individual  words  and  is  controllable 
by  the  setting  of  a maximum  phrase  length  parameter.  However,  this  para- 
meter has  for  some  time  been  set  to  1 for  the  creation  of  Intrex  stemmed 
shreds  so  that  only  single  word-stems  appear  in  the  Inverted  Files  as  pre- 
sently  constituted* 

The  array  which  holds  the  collection  of  new  shreds  as  they  are 
created  after  stemming  is  obtained  from  free  storage.  After  all  the  new 
shreds  are  created,  a pointer  to  this  array  is  returned  to  the  main  routine  of 
STEMER  SAVED  for  outputting.  This  array  is  returned  to  free  storage  by 

STEMER  SAVED. 

SHOW  ( ):  When  all  the  shreds  from  the  input  file  have,  been  read  and  con- 

verted to  individual,  stemmed  shreds,  STEMER  SAVED- proceeds  to  display 
statistics  on  the  number  of  times  each  common  ending  was  removed  during 
the  processing.  These  counts  are  kept  and  incremented  within  an  array  set 
up  by  INIEND  as  an  extension  of  the  ending  pointer  table  .referred  to  earlier. 
Each  location  in  the  array  corresponds  to  one  ending  in  the  ending  list  and 
is  incremented  whenever  that  ending  is  removed  by  STEM. 

SHOW  prints  a header  line  containing  the  column  headings,  ENDING 
and  TIMES  USED,  and  then  proceeds  to  print  a list  of  all  the  endings  in  the 
list  whose  corresponding  counts  are  greater  than  »ero.  The  count  will  appear 
beside  each  ending.  When  all  endings  and  counts  have  been  listed,  the  tota( 
number  of  all  stemmed  words  will  be  printed.  SHOW  then  returns  to  STEMER 

SAVED. 

Files  Referenced:  . 

SUBTIT  »ame2 
STEMED  name 2 
ENDING  TEST  2 
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Messages: 

1 . 

"No  ending  file  found" 

* * 

t 

2. 

"bf  routine  error" 

3. 

"Error  in  reading  endings" 

4. 

"Error  in  opening  file" 

5. 

"Error  in  reading  file" 

« 

6. 

"Premature  end-of-file" 

_/~ 

7. 

"Word  length  0 on  word  n of  name 

lisnam ' ' 

8. 

"Shred  fence  missing.  Previous  name 

1 s stems  were  — stems'1 

9. 

"Insufficient  free  storage  called  for  new  shreds.  Stems  are  — 
stems" 

10. 

"SUBTIT  — namc2  has  been  run" 

11. 

"ending  times  used" 

12. 

"total  words  stemmed  is  js " 

E.  Source  Files: 

►STEMER  ALGOL  (Main,  STEM) 

STEM1  (STEMER,  SHOW) 

STEM2  (INIEND) 

F.  Loading  Procedure: 

LAED  -ncload  -*  STEMER  STEM1  STEM?  (SRCH)  UTILIB  (AEDP) 
SAVE  STEMER 


Optional  argument  which  eliminates  loader  from  core  image. 


0 

ERIC 


0 23 


-508  - 


4 . 4 SORT  SAVED 
Purpos e 

To  sort  stemmed  shred  on  index  words 
Peso  ription 

The  program  SORT  was  developed  by  Technical  Information  Pro- 
g rarh  personnel  to  be  used  on  files  in  a special  format  of  their  design.  This 
format,  which  is  called  "TIP  Searchable,"  has.  been  adopted  by  Intrex  to  be 
used  for  sorting  the  shreds  which  are  produced  by  WETRUN  (Section  4.  1) 
'and  which  eventually  serve  as  input  to  the  Inverted  File  Generator  IFGEN 
(Section  4.  5).  Thus  SORT,  together  with  STEMER  described  in  4.3;  pre- 
pare the  shreds  for  inclusion  into  the  data  base. 

• * / 

A.  -OJsage  R SORT  STEMMED  date  SORTS  date  1 

The  arguments  STEMED  datp  will  be  taken  by  SORT  to  be  the  name 
of  the  input  file  to  be  sorted.  Thesejare  the  names  assigned  to  the  stemmed 
and  decomposed  shred  file  by  STEMER.  The  arguments  SORTS  date  will  be 
assigned  to  the  output  file  created  by' SORT.  The  last  argument  specifies  that 
the  SORT  is  to  be  keyed  on  field  1 (thp  search  word)  of  the  shreds. 

Author  shreds  are  also  sorted,  although  they  do  not  go  through  the 
stemming  process.  The  WETRUN  program  produces  an  author  shred-fhfe 

named  AUTHOR  date  which  is  sorted  by  the  command: 

R SORT  AUTHOR  date  SORTA  date  1 


B.  Operation: 

For  a Sescriptiori  of  the  sort  method  used  by  this  program,  see 
Reference  14. 

C.  Files  Referenced: 

STEMED  date 
SORTS  date 

or  ^ 

AUTHOR  date 
SORTA  date 

D.  Messages: 

n items  in  n items  out 

(n  is  the  number  of  items  sorted) 


E.  Source  Files: 

Property  of  Technical  Information  Program,  M.T.  T. 

F.  Loading  Procedure: 

Loaded  only  by  TIP 
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4 . 5 IF  GEN  SAVED 
Purpos  e 

To  generate  or  update  Inverted  Files  from  stemmed,  sorted  shreds 
Des  c ription 

IFGEN  SAVED  exists  in  two  versions  named  IFGENS  and  IFGENA 
which  are  used  in  the  generation  of  subject/title  and  author  Inverted.  Files 
respectively.  The  two  programs  are  basically  similar  but  contain  enough 
differences  to  make  combining  them  into  a single  dual-purpose  program 
unwieldy.  In  describing  them,  however,  it  is  reasonable  to  talk  about 
both  as  though  they  were  one  and  the  same;  and  to  merely  point  out  the 
more  important  ways  in  which  they  differ. 

Each  program  reads  a sorted  shred  file,  SORTS  or  SORTA,  and 
merges  the  shreds  into  an  existing  set  of  Inverted  File  segments,  creating 
new  segments  in  the  process.  If  no  old  Inverted  File  segments  exist,  fresh 
segments  are  created  from  the  ihput  shreds.  These  segments  will  have  a 
first  name  format  of  SInnn  or  AInnn,  respectively,  with  the  number  nnn 
rangir^  sequentially  from  1 to  als  high  as  necessary'.  The  second  name  of 
the  segments  will  be  the  same  as  that  of  the^  input  file  — usually  the  date  of 
creation  in  the  form  MMDDYY  (month,  day,  year). 


A.  Usages  R 


ilFGEI^S(A)  old  date 

The  argument  old  is  the  second  name  of  the  current  set  of  Inverted 

Files  to  be  updated.  If  none  yet  exist,  this  argument  must  be  (0).  It  may 

j . 

not  be  omitted.  /The  argument  date  is  the  second  name  of  the  sorted  sh<ted^ 
file  which  is  to  be  reaTd^to  create  the  new  set  of  Inverted  Files.  This  name 
will  be  used  by  IFGEN  as  the  second  name  of  all  new  Inverted  File  segments, 

B.  Operation: 

Since  IFGEN  is  too  large  to  be  compiled  ah  in  one  source  file,  it 
has  been  split  into  two  segments.  The  first  segment  has  either  of  two  names 
as  mentioned  above,  IFGENS  ALGOL  for  processing  subject/ title  files  and 
IFGENA  ALGOL  for  processing  author  files.  The  second  segment,  IFGENB 
ALGOL,/  is  used  in  conjunction  with  both  versions  of  the  first  segment. 

i ' ■ 
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IFGENS(A)  contains  the  main  program,  a GET  LIS  routine  to  read  the  next  list 
from  the  input  Inverted  File,  a GETSHR  routine  to  read  and  collect  refer- 
ences and  affixes  for  the  next  group  of  shreds  which  nave  the  same  stem 
field,  and  a REFMER  routine  which  merges  shred  references  (after  they 
have  been  sorted)  with  Inverted  File  list  references.  / 

IFGENB  contains  a PUTLIS  routine  to  write  the  output  lists  into 
the  new  Inverted  File  segments,  an^DDTAB  routine  to  enter  the  appro- 
priate information  into  the  directory  files,  an  AFFMER  routine  to  merge 
shred  affixes  with  old  Inverted  File  affixes,  a DCECNT  routine  to  count 
the  number  of  documents^  for  each  affix  header,  a FBCPOS  routine  to  up* 
date  the  affix  position  numbers  in  the  reference  list,  a SETNAM  routine 
to  set  up  file  names  according  to  whether  author  or  subject  Inverted  Files 
are  being  processed,  a NAM5  routine  which  converts  the  ASCII  stem  into 
5-bit  codes  for- ins  e rtion  into  the  IFDS(A)  directory  file,  and  two  segment- 
name  incrementing  routines  IUPN/vM  and  OUPNAM  for  updating  to  the  next 
input  or  output  Inverted  File  segment  respectively.. 

The  main  program  uses  the  foregoing  routines  as  it  executes  the 

following  steps  . , 


\ 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 

- 10. 

1 1 . 
12. 


Read  the  input  and  output  file  names  from  the  command  line 
arguments  . 

If  the  first  argument  is  a 0,  Set  the-indicator  IFDGNE  to  avoid 
reading  the  old  Inverted  Files. 

Initialize  counters  and  indicators. 

Set  up  storage  buffers  and  their  addresses- 

Set  file  names  via  SETNAM. 

Open  table  of  contents  file  and  input  shred  file. 

If  old  Inverted  File  segments  are  all  processed  but  there  are 
more  input  shreds,  go  to  Step  13  (if  SAMESH  false)  or  Step  3 1 
(if  SAMESH  true). 

If  input  shred  file  is  also  exhausted,  then  go  to  Step  41. 

Open  next  input  Inverted  File  segment  and  read  first  list  heade 

Use  header  to  read  next  list  and  following  header  via  GETLIS 
and  compute  pointers  to  various  parts  of  the  list. 

If  the  us  e - same  - shred  indicator  SAMESH  is  set,  go  to  Step  18. 
If  the  input  shreds  are  all  processed,  go  to  Step  36. 

J 
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13.  Read  the  nr*xt  input  shred  via  GETSHR. 

14.  Sort  the  shred  references  on  document  number  and  term 
number  via  M YSCXRT  . 

15.  Count  the  number  of  different  document  numbers  in  the  sorted 
references. 

16.  Insert  document  count  and  affix  count  into  shred  header. 

17.  If  old  Inverted  File  all  processed,  go  to  Step  31 

18.  Match  the  shred  stem  against  the  Inverted  File  list  stem. 

19.  If  shred  stem  is  earlier  in  the  sort  order  than  the  list  stem, 
go  to  Step  31. 

20.  If  list  stem  is  earlier  than  shred  stem,  go  to  Step  35. 

21.  If  stems  are  equal,  merge  affixes  via  AFFMER- 

22.  Add  shred  reference,  document,  computer  word  and  affix 
counts  to  counts  in  list  header. 

23.  Write  list  header  and  stem  via  PUTLIS. 

24.  Write  affW'list  via  PUTLIS. 

25.  Update  affix  numbers  in  references  via  FIXPOS. 

26.  Reset  "use-same  shred  flag"  SAMESH. 

27.  Merge  shred  and  list  references  via  REFMER- 

28.  - Write  merged  references  via  PUTLIS- 

29.  If  all  Inverted  File  lists  of  this  segment  are  processed,  close 
this  segment  and  go  to  Step  7. 

30.  If  more  lists  in  this  segment,  go  to  Step  10. 

31.  Write  the  shred  list  via  PUTLIS. 

32.  Reset  SAMESH  to  false. 

33.  If  both  Inverted  File  and  shred  lists  are  exhausted,  go  to  Step  41. 

34.  If  more  shred  lists,  go  to  Step  11. 

35.  Set  "use-same-shred  flag,"  SAMESH,  to  true. 

36'.  Write  Inverted  File  list  header  and  name  via  PUTLIS. 

37.  Write  affix  list  via  PUTLIS. 

38.  Set  shred  references  count  to  zero  force  dummy  reference 
merge. 

39.  Go  to  Step  27  to  write  references. 

40.  If  Inverted  File  lists  not  done,  then  go  to  Step  35. 

41.  Blank  pad  and  close  last  oytput  segment. 
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42.  Close  shred  file. 

43.  Write  two  directory  files  containing  data  stored  by  PUTLIS. 
(via  ADDTAB)  . 

44.  Close  table  of  contents  file  and  any  other  open  files. 

Some  of  the  more  important  procedures  of  the  IFGEN  module 
are  discussed  below. 

S5TMAM  (MODE,  SHD1,  IFT,  IFD,  TAB):  This  procedure  which 
resides  in  Part  "2  (IFGENB),  is  called  during  initialization  of  the  main 
program  in  Part  1 to  set  file  names  and  affix  parameters  according  to 
whether  the  MODE  passed  from  the  calling  program  indicates  that 
.gubject/titie  files  or  author  files  are  being  processed.  SHD1  is  set  to 
SORTS  or  SORTA,  IFT  is  set  to  IFTABS  or  IFTABA,  IFD  is  set  to 
IFDS  or  IFD  A,  and  TAB  is  set  to  STABLE  or  ATABLE,  respectively. 

If  the  mode  is  author,  CASEMK  is  set  to  mask  out  upper  case  bits  in 
initials.  For  subjects,  it  is  set  to  zero. 

GET  LIS  ( );  This  procedure  is  called  by  the  main  program  to 

obtain  the  next  Inverted  File  from  the  segment  currently  being  updated. 
The  header  of  the  next  list  to  be  read  has  already  been  brought  into 
core  along  with  the  previous  list.  This  supplies  the  counts  or  lengths 
needed  to  determine  how  much  storage  is  necessary  to  hold  the  re- 
mainder of  the  list.  If  the  list  is  too  large  to  be  contained  in  one 
432-word  block,  an  overflow  flag  is  set  to  force  the  continued  reading 
of  the  list  after  the  first  block  is  processed. 

The  previously  read  and  saved  header  is  transferred  to  the 
top  of  the  new  list  area  and  the  counts  are  updated.  The  number  of 
section  pointers  (if  any)  within  the  list  are  computed  and  subtracted 
from  the  word  counts  in  the  header,  since  they  may  not  exist  in  the  same 
quantity  when  the  updated  list  is  written. 
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The  list  is  then  read  into  core  following  its  new  header,  along 
with  the  header  of  the  next  list  is  the  segment.  The  next  header  is  set 
aside  for  use  by  the  next  call  to  GETLIS  and  the  word  counts  are  extracted 
from  this  header  to  be  used  in  looking  ahead.  When  the  end-of-file  is 
read,  GETLIS  calls  TESDON  to  see  if  any  more  input  segments  remain 
to  be  processed.  TESDON  attempts  to  open  the  next  segment  in 
sequence  by  calling  IUPNAM.  If  that  routine  indicates  there  are  no 

I 

more  input  segments,  TESDON  returns  a zero  to  GETLIS.  j 

' ;S2B  ! 
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The  core  address  of  the  list  just  read  is  returned  as  a value  to  the 
calling  program. 

GETSHR(  ):  This  procedure  is  called  by  the  main  program  to  obtain  the 

next  shred  list  from  the  input  shred  file.  The  list  is  really  a gathering  of  all 

shreds  with  the  same  stem  (field  1),  which  have  been  clustered  together  by  the 
* 

SORT  program  described  in  Section  4.  5.  The  first  call  to  GETSHR  is  handled 
differently  from  all  subsequent  calls.  This  call  is  a kind  of  pump  primer 
which  causes  the  shreds  to  be  read  one  shred  ahead  of  the  last  one  processed. 
This  is  due  to  reading  the  next  header  along  with  the  current  shred.  The 
first  call  reads  in  the  first  shred  header  to  get  the  length  of  the  first  shred. 

An  array  of  this  size  is  obtained  from  free  storage  and  the  shred  along  with 
the  next  shred  header  , is  read  into  core.  Shreds  whose  stem  field  is  longer 
than  80  characters  are  rejected  and  the  next  shred  is  immediately  read  in 

The  shred  stem  is  copied  into  a save  are^  for  comparison  to  the  stern 
from  the  previous  shred.  In  the  case  of  the  first  shred,  the  stem  is  also 
copied  into  the  previous  stem  area  and  no  comparison  is  made.  In  this  case, 
and  in  the  cases  where  the  new  stem  is  the  same  as  the  previous  one,  the 
reference  word  for  this  shred  is  added  to  an  array  set  up  to  hold  the  collec- 
tion of  references  from  shreds  with  similar  stems  and  a reference  counter 
is  incremented. 

The  affix  field  of  the  new  shred  is  compared  to  the  affixes  already 
collected  for  this  list  and  if  not  like  any  other,  it  is  added  to  the  affix  array. 

If  it  is  similar  to  a previously  stored  affix,  the  reference  count  in  that  affix 
header  is  incremented.  In  both  cases  the  position  or  sequence  number  of  the 
affix  in  relation  to  the  affix  list  is  inserted  into  the  appropriate  component 
of  the  reference  word.  If  the  shred  list  is  later  merged  with  an  Inverted 
File  list,  these  numbers  will  be  modified. 

If  the  end  of  the  shred  file  has  not  been  reached,  GETSHR  loops  back 
to  read  the  next  shred.  This  process  continues  until  either  a shred  is  read 
v/hose  stem  does  not  match  the  previous  stem  or  the  end  of  the  shred  file 
is  reached.  When  either  of  these  events  occurs,  GETSHR  finishes  the 


*Later,  in  the  main  program,  stems  longer  than  28  characters  are  ignored. 
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construction  of  the  new  list  by  inserting  the  affix  list  before  the  reference 
list,  the  previous  stem  before  the  affix  list,  and  a list  header  (3  words) 
before  the  stem.  The  header  couhts  and  fence  are  computed  and  inserted 
and  the  address  of  the  reference  list  is  set  aside  for  use  by  REFMER. 

REFMER  (R1 , R2):  When  the  main  program  finds  a shred  list  whose 

stem  matches  a list  from  the  input  Inverted  File,  it  must  update  the  old 
list  rather  than  create  a new  one.  Updating  includes  merging  of  the  new 
reference  list  gathered  by  GETSHR  with  the  old  Inverted  File  reference  list. 
Such  merging  is  the  task  of  REFMER. 


pointing  to  one  of  the  reference  lists  to  be  merged.  The  length  of.  each  list' is 
extracted  from  the  decrement  portion  of  its  pointer.  Indices  for  stepping 
through  the  lists  are  initialized  to  zero.  An  index  is  set  to  point  to  an  area 
obtained  from  free  storage  during  main  initialization  which  will  be  xised  to 
store  the  merged  list.  The  index  is  incremented  whenever  a new  output 
reference  is  stored. 

References  from  the  two  lists  are  compared  and  the  one  with  the  higher 
document  number  is  stored  as  output.  Since  all  the  new  (shred)  documents 
'■•-should  be  different  from  any  already  in  the  Inverted  File,  a message  (1)  is 
typed  if  identical  document  numbers  are  found.  Both  the  old  Inverted  File 
list  and  the  output  list  are  buffered  and  the  flushing  and  refilling  of  the  buffers 
are  controlled  by  the  user  of  indicators. 

One  additional  function  of  REFMER  is  the  deletion  %i  the  s ection  pointe  rs 
fromthe  old  Inverted  File  list  as  it  is  read,  examined,  and  merged.  Pointers 
must  be  deleted  even  when  no  shred  list  is  being  merged  and  only  the  original 
Inverted  File  list  is  being  output.  In  this  case,  REFMER  is  employed  in  a 
pseudo-call  for  the  sole  purpose  of  deleting  these  pointers.  Such  a call  is  trig- 
gered by  using  a shred  list  pointer  argument  of  zero. 

When  the  output  list  is  completed,  a pointer  which  contains  the  length 
(in  decrement)  and  address  of  the  new  list,  is  returned  as  a value  to  the  main 
prog  ram. 

AFFMER  (A  1 , A2,  NA,  PT):  Another  part  of  updating  an  Inverted  File  refer- 

ence list  whose  stem  matches  that  of  a shred  list  is  the  combining  of  the  affixes 
of  the  two  lists.  The  cld  Inver"  ’ "ile  list  of  affixes  (Al)  is  transferred  to  an 


REFMER  is  called  from  the  main  program  with  t\yo  arguments,  each 


ERIC 


530 


-515- 


output  array  (obtained  from  free  storage)  and  the  shred  affixes  (A2)  which 
are  new  and  different  (if  any)  are  appended  to  the  end  of  that  group.  During 
the  transfer  of  the  old  list  affixes,  any  section  pointers  which  are  en- 
countered are  removed.  This  must  be  done  by  employing  pseudo-calls  to 
AFFMER  with  zero  for  the  second  argument  when  no  shred  affixes  are 
being  merged. 

In  an  actual  combining  of  affix  lists,  the  affix  codes  of  each  list  are 
extracted  and  compared  to  each  one  in  the  other  list.v When  different,  the 
shred  a>ffix  is  added  (along  with  its  header)  the  output  group  and  the  count  of 
affixes  (NA)  is  incremented.  When  the  ne.w  affix  is  the  same  as  some  In- 
verted File  list's  affix,  the  header  counts  of  the  old  affix  are  updated  to  in- 
clude the  counts  of  the  shred  affix.  A table  of  affix  positions  (PT)  is  filled 
as  the  affixes  are  combined  into  a single  group.  This  table  will  show  the 
relative  position  within  the  combined  affix  group  of  each  shred  affix,  whether 
added  to  the  end  of  the  group  or  included  with  one  already  in  the  group.  The 
table  is  later  used  by  the  procedure  FIXPOS,  to  update  the  affix  position 
number  in  the  shred  references. 

FIXPOS^R,  PT):  This  procedure's  called  from  the  main  program  after 

a shred  list  has  been  combined  with  an  Inverted  File  list  and  AFFMER  has 
made  a composite  affix  group  and  a table  of  affix  position  numbers  for  the 
reference  list  created  from  the  shreds.  This  table  provides  a converter 
from  affix  sequence  numbers  relative  to  ihe  original  shred  list  to  sequence 
numbers  relative  to  the  now  combined  affix  list.  \ 

The  number  of  references  in  th  shred  list  is  extracted  from  the  de- 
crement of  the  shred  list  pointer  (SR)  and  is  used  to  terminate  the  following 
processing  loop: 

1.  The  temporary  affix  number  (inserted  by  GETS  HR)  is  ex- 
tracted from  the  current/  reference  and  used  as  an  index  to 
the  position  table. 

2.  The  contents  of  that  location  of  the  table  is  taken  and  stored  in 
the  reference  word  in  place  of  the  temporary  affix  number. 

3.  The  index  to  the  reference  list  is  moved  up  to  the  next  reference. 

FIXPOS  is  located  in  the  second  segment  of  IF  GEN  (IFGENB)  and  de- 
cides whether  the  affix  position  number  is  a 4-bit  (subject  endings  )mr  a 7 -bit 
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(author  initials)  component  on  the  basis  of  the  variable  CASEMK.  This 
word  is  zero  for  processing  subject  files  and  contains  a mask  to  screen 
out  upper  case  bits  in  initial^  o£  author  file  affixes. 

DCECNT  (SR,  SA):  This  procedure  is  called  from  the  main  program 

after  a new  shred  list  has  been,  obtained  via  GETSfiR  and  before  AFFMER 
is  called.  The  first  argument  SR  is  a pointer  to  the  list  of  shred  references 
and  the  second  argument  contains  the  number  of  affixes  associated  with  the 
list.  The  number  of  references  is  extracted  from  the  decrement  portion  of 
the  pointer  and  the  address  of  the  first  affix  is  computed.  DCECNT  then 
scans  the  reference  list  once  for  each  affix  in  the  group  looking  for  affix 
position  numbers  corresponding  to  the  affix  being  checked.  When  such  a 
reference  is  found,  its  document  number  is  compared  to  the  document 
number  of  the  one  found  previously.  When  the  numbers  differ,  a count  is 
incremented.  At  the  completion  of  each  reference  list  scan,  this  document 
count  is  inserted  into  the  affix  header  and  the  list  is  scanned  again  for  the 

next  affix* 

PUT  LIS  ( LP,  RL,  HW): 

PUTLIS  is  the  output  control  procedure  of  IFGEN.  It  is  called  from 
several  different  places  in  the  main  program  to  output  the  various  parts 
(header  and  stem,  affix  group,  references)  of  the  new  Inverted  File  lists 
as  they  are  pieced  together  by  other  sections  of  the  program.  The  first  argu 
ment  (LP)  contains  a pointer  to  the  data  to  be  added  to  the  output  buffer  — part 
of  a new  Inverted  File  list.  The  decrement  of  this  pointer  contains  the  length 
of  the  area  to  be  output.  The  second  argument  (RL)  contains  the  length  of  the 
entire  list  remaining  to  be  processed  (minus  any  blank  padding).  The  third 
argument  is  non-zero  only  when  the  header  (including  .the  stem  or  name  of  the 
list)  is  the  portion  being  written.  This  tells  PUTLIS  that  it  must  check  the 
size  of  the  list  against  the  space  remaining  in  the  output  Inverted  File  section 
and  determine  if  any  blank  padding  is  going  to  be  needed  to  fill  out  unused 
words  at  the  end  of  the  section.  Even  when  a list  containing  enough  references 
to  extend  through  several  sections  (432-word  blocks)  is  being  processed  the 
length  contained  in  RL  may  be  used  to  compute  how  far  into  the  last  used  sec- 
tion the  list  will  extend.  A minimum  of  ten  computer  words  must  be  left  over 
at  the  end  of  the  list  to  accommodate  the  header  of  the  next  list.  When  this  is 
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not  the  case,  the  space  must  be  padded  with  blanks  ana.  the  number  of  blanks 
must  be  entered  into  the  header  of  the  list  being  processed  before  it  can  be 
output.  The  padding  itself  is  not  added  to  the  output,  of  course,  until  the 
tjc;t  is  entirely  written.  Padding  is  als^o  added  when  the  last  list  of  a segment 
is  being  processed.  The  final  list  will  be  indicated  by  a value  of  10  for  the 
third  argument  HW . This  will  force  the  pad-  >ut  of  the  remainder  of  the  sec- 
tion . 

PUTLIS  counts  both  segments  (files)  and  sections  (records).  When  a 
new  segment  is  opened,  a heading  is  written  into  the  table- of- contents  fil# 

(e.g.  SEGMENT  n ).  When  a new  section  is  started,  an  entry  is  made  to  the 
table  - of  - contents  file  indicating  that,  Section  No.  n starts  with  lisnam.  and 
the  offset  is  s.  The  list  whose  stem  is  lisnam  will  then  appear  in  segment 
n at  the  depth  of  s.  When  s is  greater  than  1,  it  is  because  the  previous 
list  spilled  over  into  this  section.  A section  header  containing  this  offset  is 
written  at  the  top  of  each  section.  As  each  new  section  is  started,  the  first 
list  stem  is  converted  to  5-bit  ASCII  by  NAM5  and  added  to  the  primary  direc- 
tory IFDS(A)  by  a call  to  the  procedure  ADDTAB.  This  routine  also  determines 
when  the  initial  letter  of  the  stem  differs  from  that  o^the  previous  stem.  When 
this  is  the  case,  the  new  initial  is  used  on  an  index  to  the  secondary  directory 
IFTABS(A).  This  location  is  then  filled  with  the  index  position  of  IFDS(A) 

where  the  new  alphabetic  group  begins. 

As  each  portion  of. a list  is  output,  the  section  space  remaining 
(SEC  REM)  and  the  iist  length  remaining  (REMLIS)  are  reduced  accordingly. 
When  REMLIS  reaches  zero,  any  necessary  blank  padding  is  written  to  com- 
plete the  remaining  words  of  the  section  and,  if  the  section  count  has  reached 
ten  oj  more,  the  segment  is  closed.  On  the  next  call  to  PUTLIS,  a new  seg- 
ment na^ne  is  obtained  by  calling  the  procedure  OUPNAM,  Which  increments 
the  output  file  number  and  inserts  it  into  the  first  name  (SInnnor  AInnn)  of  the 
output  Inverted  File. 

C.  Files  Referenced: 

SORTS(A)  date 
S(A)Innn~  old 
S(A)Innn  date 

date  S(A)  TABLE 

IFDS(A)  date 
IFTABS(A)  date 
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D.  Messages: 

u 

1.  "Ifgen  error  has  occurred.  Error  code  is- 

2.  "Same  D.N.  found  in  1.?.  and  shred  list  with  name  ljsnam 

D.  N.  is n’.' 

3.  "Error  in  writing  output  Inverted  File  segment_s_" 

4.  "Error  in  opening  output  file  no. 

5.  "Job  done." 

E.  Source  Files: 

IFGENS  ALGOL 
or 

IFGENA  ALGOL 
IFGENB  ALGOL 

F.  Loading  Procedure: 

LAED  - ncload  - IFGENS(A)  IFGENB  (SRCH)  UTILIB  ( AEDP) 
SAVE  IFGENS(A) 


4.6  IF  TEST  SAVED 


Purpos e 

To  check  the  header  counts  of  Inverted  File  lists 
Desc  ription 

IFTEST  is  an  adaptation  of  IFLIST  (described  in  the  next  section  ) 
and  was  originally  designed  to  serve  as  a "dry  run"  for  the  creation  of  an 
Inverted  File  listing  via  IFLIST.  Since  IFGEN  (described  in  the  previous 
segment)  has  occassionally,  due  to  its  complexity,  constructed  a list  with 
an  improper  header  count,  and  since  these  counts  are  used  to  chain  from 
one  list  to  the  next,  it  is  important  to  verify  the  accuracy  of  these  counts. 
IFTEST  is  now  routinely  used  to  verify  a new  set  of  Inverted  Files , w he  the  r 
IFLIST  is  going  to  be  run  on  these  files  or  net. 

The  program  performs  the  same  chaining  computations  that  are  re- 
quired of  IFGEN  and  IFLIST  (using  code  borrowed  from  IFLIST)  but  produces 
no  output  unless  an  erroneous  count  is  detected.  Then  the  Inverted  File  seg- 
ment number,  section  number,  depth  into  the  segment  and  count  which  trig-  jp* 
gered  the  error  are.printed  and  processing  is  terminated.  IFTEST  may  be  re- 
sumed with  arguments  which  select  the  subject/title  or  author  files  and  which 
indicate  if  all  the  segments  are  to  be  tested  or  only  selected  ones. 

A.  Usage: 


1. 

R IFTEST 

AInnn  date 

SInnn 

2. 

R IFTEST 

AI  date  s 

SI 

3.  ' 

RIFTEST 

batch  file 

The  example  given  in  1 above  is  the  mode  used  regularly  as  part  of 
the  file  generation  procedure.  The  argument  SInnn  (or/^Innn)  specifies  the 
first  name  of  the  segment  where  checking  is  to  begin.  The  argument  elate 
specifies  the  second  name  of  the  file  segments.  IFTEST  will  proceed  from 
this  segment  to  the  next  sequentially  until  aljl  existing  segments  are  processed 
or  until  an  error  is  encountered.  | 

Example  2 allows  the  selection  of  an  individual  segment  number  (as  give 
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in  s)  of  the  author  or  subject  files  to  be  checked.  In  this  mode,  only  one 
file  segment  is  processed. 

Example  3 allows  selected  segment  names  to  be  read  from  a line- 
marked  ba'tch  fi1  e named  in  the  command  arguments.  The  file  may  be 
creatd  by  EDL15  or  QED15  (CTSS  edit  programs)  and  consists  of  pairs  of 
segment  names,  one  pair  per  line. 


B.  Operation: 

IFTEST  reads  th.e  arguments  from  the  command. line  and  deter- 
mines  which  of  the  options  shown  in  Part  A have  been  employed.  If  the 
author  files  are  being  tested,  ^ dicator  AUT  is  set.  If  a batch  file  name 
appears  in  the  arguments,  an  indicator  BATCH  is  set.  If  a single  segment  is 
being  checked,  the  segment  number  is  read  from  the  command  line  and  used 
to  create  the  input  file  name.  In  this  case,  an  indicator  SEG  is  set. 

Having  made  these  preparations,  IFTEST  proceeds  with  the  following 

steps: 


' 1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 


If  BATCH  is  set,  extract:  ^the  next  segment  name  from  the  batch 
fiie. 

If  BATCH  "is  not  set,  create  the  next  segment  name  from  the  cur- 
rent segment  number  via  UPNA-M. 


Initialize  the  section  counter. 


Open  the  segment  for  reading. 

Read  the  next  section  into  core  and,  if  an  end-of-file  is  en- 
countered, set  end-of-file  flag  and  go  to  Step  20. 

Initialize  section  pointers  and  increment  section  counter. 

Check  for  section  fence  and,  if  absent,  go  to  error  exit. 

Use  section  header  offset  to  position  section  address  pointer  to 
first  list. 

Extract  word  count  and  blank  count  from  list  header. 


Compute  number  of  words  remaining  in  this  section. 
Compute  the  number  of  section  pointers  in  this  list. 

Get  length  of  stem  and  length  of  affix  group. 

Save  pointer  to  stem  for  possible  error  printout. 
Save  address  of  affix  group. 
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15.  Move  list  position  pointer  BP  to  start  of  reference  list.,  i 

16.  Extract  number  of  references  in  this  list  from  list  header. 

17.  If  references  start  in  next  section,  read  in  next  section  via  OFLIST  — 
but  reset  READIN  flag. 

18.  If  reference  list  extends  beyond  end  of  section,  use  repeated  calls 
to  OFLIST  to-read  through  rest  of  reference  list. 

19.  Check  offset  of  each  section  header  read  and,  if  incorrect,  go  to 
error  exit. 

-20.  If  READJN  flag  is  off,  meaning  OFLIST  not  employed  in  Step  18, 

* “move  list  position  pointer  up  to  end  of  reference  list. 

21.  Set  up  addres,s  pointer  to  next  list  header;  see  if  still  in  this  section; 
chec^  for  list  header  and,  if  absent,  go  to  error  exit. 

22.  Reset  READIN  flag- 

23.  Move  list  address  up  to  next  list. 

24.  If  still  in  this  section,  go  to  Step  9.  ' 

25.  If  end-of-file  flag  not  set,  go  to  Step  5. 

26.  If  eiid-of-file  flag  is  set,  close  segment. 

27.  Reset  end-of-file  flag. 

28.  If  SEG  flag  set,  stop  processing. 

29.  If  BATCH  flag  set,  get  next  file  name  from  batch  file  . 

30.  If  more  names  in  file,  stop  processing,  else  go  to  Step  3. 

31.  If  BATCH  flag  not  set,  get  next  segment  name  via  UPNAM  „ 

32.  If  this  segment  exists,  go  to  Step  3,  else  stop  processing. 


ERROR  EXITS:  Whenever  a missing  header  or  *.ence  indicates  tnat  the 

chaining  pncess  has  gotten  off  the  track,  or  a reading  error  occurs,  the  type 
of  error  and  location  of  the  list  being  processed  is  printed  and  proces  sing  is 

terminated.  / 

/ 

OPNAM  ( ):  In  this  subroutine  the  integer  holding  the  binary  segment 

number  is  incremented  by  one  and  then  converted  to  BCD  via  the  CTSS  utility 
/DEFBC.  The  BCD  number  is  then  inserted  into  the  right  half  (18  bits)  of  the 
first  name  of  the  Inve  rted'  File  segments,  thus  creating  a name  of  the  form, 
Slnnn  or  AInnn  where  nnn  is  now  one  larger  than  beiore. 
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OFLT^Tt  ) ; This  subroutine  uses  the  CTSS  procedure  BFREAD  (see 
Section  3 . 5 . 2?.  2 ) to  read  the  next  s ection  of  references  in  a list  in  which 
the  references  extend  beyond  the  section  where  the  list  begins.lt  increments 
the  main  section  counter  and  also  a counter  for  the  number  of  overflow  sec- 
tions being  read  in  this  list.  An  adjustment  is  made  to  the  list  position 
pointer  BP  which  takes  into  account  the  original  depth  into  the  section 
where  the  list  began  and  the  size  of  the  section.  This  adjustment,  together 
with  others  at  Step  18  above,  ensures  that  BP  will  be  positioned  at  the  start 
of  next  list  when  all  the  overflow  references  have  been  read.  Other  such  ad 
justments  and  preparations  made  by  OFLIST  include  the  setting  of  the  flag 
READIN,  the  positioning  of  the  section  address  pointer  to  the  top  of  the  sec 

tion,  and  the  resetting  of  the  depth  parameter  to  zero. 

/ 

C.  Files  Referenced: 

S(A)I  nnn  date 
batch  file 

D.  Messages: 

1.  11  premature  end  of  file  reached" 

2*  "read  error” 

3„  "fence  error” 

4*  "offset  error” 

5.  "CWL  count  list  header  error” 

6.  ”RFL  count  list  header  error” 

7.  "Last  list  coy  hained lis nam  ** 

name  in  the  list  being  processed  when  an  error  occurred). 

8.  "Depth  is  d in  file  No.J[  ” (v  here  d is  the  list  depth  within  the 

file  whose  name  contains  the  segment  numb  e r J:  ). 

9.  ”Batch  file  empty  or  nonexistant" 

E . Source  File: 

IFTEST  ALGOL 

F . Loading  Procedure: 

LAED  -nc load-  IFTEST  (SRCH)  TTTILIB  ( AEDP) 

SAVE  IFTE°  i* 


/ 


(where  lisnam  is  the  stem  or 
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4.7  IFLI5T  SAVED 
Purpos e 

/ 

To  create  an  ASCII-coded  file  listing  the  contents  of  the  Inverted  Piles 
De  s c r iption 

The  Inverted  Files  contain  both  binary  and  ASCII  data  in  a fairly 
complex  format.  IFLIST  provides  a means  of  presenting  the  information 
contained  in  a readable,  tabulated  form-  The  program  produces  cm  ASCII- 
coded  disk  file  which  may  then  be  printed  off-line. 

The  file  generated  is  named  SUB  PIP  IF  PIS  T or  AUTFIL  IF  PIS  T , 
depending  upon  whethe  r subject  or  author  files  are  being  processed.  The 
author  names  or  subject/title  stems  are  listed  in  the  left  column,  showing 
the  separation  of  stems  and  endings.  Other  columns  contain  the  number  of 
references  associated  with  that  stem,  the  number  of  different  documents, 
and  the  number  of  affix  strings. 

Pisted  in  the  "Term"  column  are  the  subj ect/title  stems  taken 
from  the  Inverted  File  lists,  or  the  Author  names  in  the  case  of  Author 
files.  The  subject/title  stems  are  followed  by  a hyphen  when  an  ending 
has  actually  been  removed.  If  only  one  ending  has  been  removed  from  a 
term  word,,  then  the  ending  appears  after  the  hyphen  ondhe  ^ame  line  . If 
more  than  one  ending  has  * "'en  removed,  the  variations  are  listed  in  sep- 
arate, indented  entries  under  the  stemmed  term.  A typical  page  of  an  In  - 
verted File  listing  is  shown  in  Fig.  4.  3. 

For  author  file  listings,  there  is  no  stemming  ox  e ndings  and 
author's  initials  appear  in  place  of  the  endings.  Pike  multiple  ending 
strings,  multiple  sets  of  initials  appear  in  additional  lines  instead  of  ap- 
pended to  the  name. 

The  second  column  contai  -s  the  number  of  references  associated  with  this 
lis’t.  This  number  should  correspond  to  the  number  of  reft  actually 

printed  when  full  output  is  requested. 

Column  three  contains  the  number  of  different  documents  designated 
by  the  references  in  that  list. 

Column  four  indicates  the  number  of  affix  strings  (endings  or  initial* 
associated  with  the  term  or  name. 
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•multiple  affix  strings  are  listed,  the  reference  count  and  the 
document  for  each  affix  is  shown  in  the  appropriate  columns. 

When  the  listing  of  references  is  requested  by  the  mode  argument, 
the  contents  of  each  reference  word  is  shown  in  the  following  format:  DN 

TN  WN  EN'  (WT)  WJO.  is  the  document  number,  TN  the  term 

number  within  the  document,  WN  the  word  number  within  the  term,  and 
EN  the  affix  position  associated  with  the  term.  The  weight  (0-5)  appears 
within  the  parentheses  and  the  property  code  is  indicated  by  the  presence 
of  one  or  more  of  the  letters  W,  J,  O (whole  work,  journal  a rticle , o r ig  - 
inal  work) , 

Up  to  five  references  are  printed  to  a line  with  as  many  lines  as 
needed  used  to  print  the  entire  collection  of  references  in  the  list. 

A.  Usage: 


1: 

R 

IFLIST 

SInnn 

date  - mode 

2. 

R 

IFLIST 

AI  date  mode  s 

3. 

R 

IF  r 1ST 

batch 

file  -mode- 

The  above  options  of  IFLIST  usage  correspond  to  the  options  de- 
scribed in.  Section  4.7  for  IFTEST  except  that  the  mode  argument  allows 
reference  word  contents  to  be  included  in  or  excluded  from  the  listing.  A 
mode  of  0 or  the  ommision  of  a mode  (examples  1 and  3 only)  produces 
the  full  reference  listing.  A mode  of  1 causes  references  to  be  suppressed* 

B.  Operation: 

After  initializing  pointers  and  flags,  IFLIST  reads  the  arguments 
from  the  command  line  and  determines  which  of  the  options  of  Part  A have 
been  employed.  If  the  first  argument  is  oi  the  form  shown  in  example  1, 
then  the  starting  segment  nun  mer  is  extracted  from  the  file  name  n the  first 
argument.  If  the  first  argument  indicates  that  author  files  are  to  be  listed, 
then  an  indicator  AUT  is  set.  If  a batch  file  name  appears  in  arguments  one 
^^nd  two  instead  of  Inverted  File  imes,  an  indicator  BATCH  is  set. 

An  attempt  is  then  made  to  read  a third  argument  (inode)  from  the 
command  buffer.  If  tin-  rgumunt  exists,  it. is  used  to  set  or  reset  an  in-* 
dicator  NOREFS,  according  to  whether  thft  mode  is  0 or  a 1.  If  it  w 
not  exist,  NOREFS  remains  reset  (false)i 
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If  a mode  argument  is  found,  an  attempt  is  made  to  extract  a f c _ rth 
argument,  which  if  present  is  used  as  the  segment  number  to  be  processeu. 
An  indicator  SEG  is  set  to  prevent  processing  beyond  this  segment. 

With  these  pi  v -rations  having  been  made  IELIST  loops  through 
the  following  steps  as  i~.  produces  its  output 

1.  If  BATCH  is  set,  extract  the  next  segment  name  from  the  batch 
file  . 

2.  If  BATCH  is  not  set,  create  the  next  segment  name  from  the  current 
segment  number  via  UPNAM. 

3.  Initialize  the  output  buffer  pointer  to  the  top  of  the  buffer 

4.  Output  a carriage  return  and  three  tabs  followed  by  the  name  of 
the  segment  being  listed. 

5.  Output  two  carriage  returns,  the  <_  lumn  headings  Term,  No.  of 
Refs.,  No.  Docs.,  No.  Ends.,  and  two  more  carriage^!  eturns . 

6.  Open  the  output  file  for  writing  (SUBFIL  IF  LIST  for  subject/title 
files,  AUTFIL  IFLIST  for  author  files). 

7.  Open  the  current  input  segment  for  reading. 

8.  Read  the  next  section  into  the  input  buffer  and,  if  the  end- of- file 
is  encountered,  set  the  end-of-file  flag  and  go  to  Step  6 1. 

\ 

9.  Set  section  address  pointer  to  the  top  of  the  section  and  reset  sec- 
tion depth  to  zero. 

10.  Check  for  section  fence  and,  if  absent,  go  to  error  exit. 

11.  Use  section  header  offset  to  position  section  address  pointer  to 
first  list* 

12.  Check  for  list  fence  and,  if  absent,  go  to  error  exit. 

J 3.  Extract  number  of  blank  words  and  length  of  name  or  stem  Prom 
list  header  and  construct  a pointer  to  the  name  or  stem. 

14.  Return  any  free  storage  used  on  last  call  to  the  affix  processing  pioc 
dure  GROUP, 

15  o Extract  the  number  of  atfixes  from  the  list  header. 

J6.  Place  list  position  pointer  BP  at  address  of  first  reference. 

17.  Compute  the  address  of  the  first  affix. 

18.  Cons  true  . a list  of  all  affix  codes  in  the  list  v ia  GROUP. 

19.  If  only  one  affix  in  list,  go  to  Step  58. 

20.  Output  the  name  or  Lem. 
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Output  a hyphen  if  AUT  is  not  set,  a comma  if  it  is  set. 

Output  necessary  tabs  to  get  to  column  two  via  TABIN. 

Columnize  the  reference,  document,  and  affix  counts  via 
COLNUM.  ^ 

24.  Output  a carriage  return  to  end  this  line. 

25.  If  single-affix  flag  EDSONE  is  set,  reset  it  and  go  to  Step  43. 

26.  Set  up  loop  to  attach  affix  codes  to  name  or  stem. 

27.  Output  1 space  for  indentation  . 

2S,  Output  the  name  or  stern. 

29.  If  AUT  flag  is  on,  go  to  Step  33. 

30.  Convert  the  next  ending  code  saved  by  GROUP  to  ASCII  char- 

acters via  GET  END  (see  Section  3. 2 . 6.  3). 

31.  If  the  EDSONE  flag  is  set  and  GETEND  returned  a converted 

ending,  output  a hyphen  and  add  1 to  the  affix  (ending)  length. 

32.  Bypass  following  author  file  steps  by  going  to  Step  35. 

33.  Create  a pointer  to  the  initials  string. 

34.  Output  a comma  and  add  1 to  the  affix  (initials)  length. 

35.  Output  this  affix  character  string. 

36.  Add  affix  length  to  name  or  stem  length. 

37.  If  EDSONE  flag  is  set,  go  to  Step  22. 

38.  Output  necessary  tabs  o get  to  column  two  via  TA-PTN. 

39-  Columnize  the  reference  and  document  counts  for  this  affix 
via  COLNUM. 

40.  Output  a ^carriage  return. 

41*  Move  affix  address  pointer  up  to  next  affix  in  list  and  reset  affi: 
length  to  zero. 

42.  If  more  affixes  in  list,  loop  back  tc  append  next  affix  by  going  to 
Step  27  . 

43.  If  all  affixes  are  proo  .;ed,  extract  reference  count  from  list 
heade  r . 

44.  If  references  start  in  next  section,  read  in  next  section  via 
OFLIST  but  reset  READIN  flag. 

45.  If  NO  REFS  flag  is  not  set,  go  to  Step  48.  ^ 

46.  If  not  outputting  reierences  (NOREFS  set)  and  reference  list  ex- 
tends beyond  end  of  this  section,  use  repeated  calls  to  OF  LIST 
to  read  through  rest  of  reference  list. 
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47.  When  all  references  read  in,  go  to  Step  59. 

48.  Set  references  - output-per- line  parameter  N to  5. 

49=  If  reference  count  is  less  than  M,  go  to  Step  57. 

50.  If  next  reference  is  in  next  section,  read  in  the  next  section 
via  OFLiIST. 

51.  Dissect  next  reference  and  output  its  relevant  data  via  CUTREF. 

52.  If  output  buffer  address  is  within  fifty  computer  words  of  the  end 
of  buffer,  write  out  and  reset  buffer  via  RITOUT. 

53.  Increment  list  position  pointer  to  next  reference. 

54.  If  5:  references  have  not  yet  been  done,  go  to  Step  50  • 

55.  If  N references  finished,  reduce  the  reference 
count  by  N and,  if  count  is  now  zero,  go  to  Step  59. 

56.  If  more  references  to  do,  output  a carriage  return  and  go  to 
Step  49. 

57.  Set  N equal  to  remaining  reference  count  and  go  . Step  49. 

58.  (from  Step  19  only)  Set  the  single-affix  flag,  EDSONE,  set  the 
affix  processing  loop  counter  to  zero,  and  go  to  Step  28. 

59.  (from  Step  55)  Output  two  carriage  returns  between  lists. 

60.  If  NOREFS  flag  is  set  and  READIN  flag  is  not  set,  move  list 
position  pointer  BP  past  references. 

61.  If  output  is  at  a word  boundary  and  buffer  is  over  naif  full,  w'rite 
out  buffer  contents  and  reset  buffer  via  RITOUT. 

62.  Move  section  address  pointer  to  start  of  next  list  and  update  depth 
into  section. 

63.  Reset  R.EADIN  flag. 

64.  If  new  list  starts  in  this;  section,  go  to  Step  12. 

65.  If  end-of-file  flag  is  not  set,  then  go  to  Step  8. 

6.  Cl  ose  segment. 

67.  Reset  end- of-file  flag. 

68.  If  single- segment  flag  S,  r is  set,  then  go  to  Step  7 1 „ 

69.  If  BATCH  flag  is  set,  extract  next  segment  r,.me  from  batch  tile. 

70.  If  ro  more  names  in  batch  file,  go  to  Step  11. 

K If  BATCH  flag  is  not  set,  get  next  segment  name  via  UPN..M. 

72.  Close  the  output  file.. 

73.  If  next  segment  exists,  go  to  Step  3. 

74.  If  no  more  segments  to  process,  terminate  an*'  return  to  CTSS- 


'*The  output  file  is  closed  and  reopened  for  each  segment  processed  so  that 
an  error  which  fails  to  take  a prescribed  error  exit  will  not  cause  the  en-  . 
tire  output  file  to  be  lost. 
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ERROR  EXITS 


Although  the  prior  use  of  IFTEST  (Section  4*6)  should  catch  any 
fence,  count  or  offset  errors  in  the  Inverted  File,  error  exits  are  provided 
in  IFLIST  which  will  cause  processing  to  be  terminated  i£  the  program  de- 
tects such  an  error.  The  type  of  error  and  number  of  the  segment  in  which 
it  occurred  are  printed  out  on-line  and  the  output  file  is  closed  before  the 
program  halts. 

Some  of  the  more  important  subroutines  are  described  below. 

UPNAM(  ):  This  subroutine  increments  the  segment  counter  and  con- 

“ ■ 

verts  the  new  number  to  BCD  via  the  CTSS  uti'ity  procedure  DEFBC,  The 
BCD  number  is  then  inserted  into  the  right  halt  of  the  first  name  of  the  In- 
verted File  to  make  a segment  name  of  the  form  SInnn  or  4 Innn  where  nnn 
is  now  one  larger  than  before. 

OFLJST(  ):  This  subroutine  uses  the  CTSS  procedure  BFREAD  (see 

Section  3.  5.2,2)  to  read  references  in  a list  in  which  the  references  ex- 
tend beyond  the  section  where  tiie  Lst  begins.  In  the  case  where  the  proce- 
dure GROUP  b s read  into  the  next  section  to  complete  an  affix  list  which 
crosses  a section  boundary  the  amount  of  the  extension  into  the  new  sec- 
tion is  stored  by  GROUP  in  a parameter  PRE*  OFLIST  uses  PRE  in  con- 
trolling the  address  mto  which  to  read  the  new  (partial)  section  and  the  port- 
ion of  the  section  to  be  read.  OFLIST  also  adjusts  the  list  position  pointer 
Bib  the  section  address  pointer  and  the  section  depth  to  reflect  the  new  sec- 
tion contents  and  sets  the  flag  READIN  to  indicate  that  these  adjustments 
have  been  made. 

RITOUT(  ):  This  subroutine  is  used  to  empty  the  output  buffer  by  caliing 

the  CTSS  procedure  BFWRIT  (see  Section  3.  5.2.3)  which  writes  the  consents 
of  the  buffer  into  the  disk  file  SUBFIL  (or  AUTFIL)  IFLIST  The  number  of 
words  written  is  computed  from  the  current  storage  address  .Any  unfilled 
bytes  in  the  current  address  are  padded  with  null  codes.  The  current:  storage 
address  is  then  set  to  the  start  of  the  output  buffer  for  refilling. 


TABIN  ( L):  Thm  subroutine  is  used  to  compute  the  number  of  tabs  (10 

spaces  to  a tab)  needed  to  reach  the  second  column  in  the  output  format.  This 
column  is  set  at  the  30th  character  position  or  3rd  tab  stop  of  the  line.  The 
argument  L contains  the  current  number  of  characters  already  on  the  line, 
and  therefore , determines  how  many  tabs  will  be  needed.  If  L is  thirty  or  more, 

) 
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then  the  third  tab  stop  has  already  been  reached.  In  this  case,  a carriage  re- 
turn is  output  followed  by  three  tabs.  If  L is  less  than  thirty,  the  number 
of  tabs  needed  is  computed  and  output. 

COLNUM(NUMS):  This  subroutine  :s  used  to  output  the  counts  of  refer- 

ences, documents,  and,  where  applicable,  affixes  related  to  the  name  or 
stem  in  column  one.  Each  count  is  followed  by  a tab  code  which  positions 
the  next  count  in  a new  column.  Since  the  number  of  arguments  containing 
counts  varies,  the  AED  argument  reading  orocedure  ISARGV’ (Sectior  3.6.1.  3) 
is  used  ^ fetchjfche  arguments.  Each  number  received  is  converted  to  ASCII 
via  INTASC  (Section  3.^.2.  3)  before  being  stored  in  the  output  buffer. 
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CODES  = GROUF(E,  N):  This  valued  subroutine  is  used  to  gather  the 

affixes  of  a given  list  into  a consolidated  group. In  the  rase  where  the  affixes 
span  from  the  end  of, one  section  into  the  next,  they  a x*e  moved  to  a temporary 
storage  area  obtained  from  free  storage,  and  the  affix  address  is  changed  to 

this  area. 

When  subject/title  ending  codes  are  being  processed:  another  kind 
of  consolidation  also  takes  place.  The  ending  codes  are  copied  from  the  orig- 
inal list  into  an  array  containing  only'the  codes  and  no  accompanying  affix 
headers.  This  step  is  left-over  from  the  time  when  phrases  (whole  index 
terms)  were  included  in  the  Inverted  File  and  all  the  ending  codes  relatedto 
the  phrase  had  to  be  unpacked  from  each1,  "affix  string"  Since  only  single 
words  are  included  ./now,  this  step  could  be  eliminated. 

The  adcLp^ss  of  the  consolided  list  of  codes  is  returned  as  a value  to 
tjie  calling  program.  ’ 

CUTREFjr,): / This  subroutine  extracts  the  components  of  a reference 
word  whose  ddress  is  given  the  argument  and  outputs  the  data  which  tl  jse 
components  represent.  First,  the  document  number  is  extracted,  con.  erted 
to  ASCII  via  INTASC,  and  copied  into  the  output  buffer.  Similar  I reatment  is 
given  to  the  term  number  (position  o‘‘  term  in  subjects  field  or  author 

name  in  author  field),  the  \ydrd  numl  \\vord  position  within  trie  term),  ami 
the  affix  number  (position  <f>i  the  related  affix  within  the  affix  group).  Next, 
the  weight  (range  r.umberjus  taken  and  is  outputwithin  parentheses. 

The  three  bits  of  the  property  code,  standing  for  "whole  work", 
"journal  article",  andC'origj.jial  work",  are  tested.  When  a bit  is  on.  the 
letter  W,  J,  or  0 are  output,  respectively. 
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A single  space  is  output  between  each  of  the  mam  elements  .:s 

above  ^Dut  not  between  the  letters  WJO  except  to  take  the  place  ci  an 
letter).  Two  spaces  are  included  at  the  end  of  CUTREF  to  separate  tr, 
ence’s  data  from  the  next. 

C.  Files  Referenced: 

SInnn  date 
AInnn  date 
SUBFIL  IF  LIST 
AUTFIL  IF LIST 

D.  Messages: 

1.  "premature  end  of  file  reached  (plus  message  No.  6)" 

2„  "write  error" 

3.  "read  error" 

4.  "list  header  error" 

5.  "Last  list  name  contained LISNAM  (plus  message  No.  6)" 

6.  "in  file  No.  F"  (where  F is  the  number  which  is  part  of  the 

name  of  the  segment  in  error). 

7.  "Batch  file  empty  or  non- exi stant" 

E.  Source  File: 

IFLIST  ALGOL 
F0  Loading  Procedure: 

LAED  -ncload-  IFLIST  STEM2  (SRCH)  UTILIB  (AEDP) 
SAVE  IFLIST 
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V. 


SUPPORTING  SOFTWARE 


In  this  chapter,  programs  are  described  which  proxAide  supporting 

roles  to  the  operation  of  Intrex  but  which  are  not  part  of  the  generation  or 
updating  of  the  da4a  base.  Like  the  programs  described  in  Chapter  IV, 
these  are  independantly  compiled,  loaded,  and  executed  programs,  each 

designed  to  perform  a specific  task. 

The  format  of  the  descriptive  sections  is  the  same  as  in  Chapter  IV 
(See  Chapter  IV  introduction  for  explanation  of  sub  - se  ctio2is  ) . , 

5.  1 DIR  GEN 

Purpo se 

To  create  a labe  1- controlle  d directory  to  disk-  and  core-stored  message 
text . 

De  s c r iption  / * ■ , 

DIRGEN  (DIRectory  GENerator)  creates  a directory  file  which  serves 
as  a mind  ex  to  both  a disk  file  and  a core -stored  table,  of  ASCII  coded  messages 
The  message  files  may  be  created  and  altered  via  the  CTSS  console  using 
the  editing  programs  EDA  or  QED.15  Each  message  is  delimited  at  each 

end  by  a special  code  and  prefaced  by  a label  consisting  of  up  to  six  ASCII 
characters,  the  first  of  which  is  ^alphabetic.  The  labels  are  delimited  at 
each  end  by  another  special  code.  Other  characters  sometimes  appear 
elsewhere  in  the  message  file  which  help  format  the  file  print-out  o\r  serve 
as  comments.  Only  the  characters  between  pairs  of  special  codes  a^re  pro- 
cessed by  DIRGEN  however. 

DIRGEN  reads  the  message  file,  finds  and  checks  the  length  of  labels 
and  messages,  and  places  each  label  in  the  directory,  with  a pointer  to  the 

location  of  the  accompanying  message.  , - 

The  disk-stored  messages  (designated  by  labels  set  off  with  $'s)  are 
written  onto  a disk-text  file.  To  conserve  space,  only,  the  message  text  is 
written  — the  labels  are  omitted.  The  core-stored  messages  (designated  . 
by  labels  set  off  with  /'s)  are  added  to  the  end  of  the  directory.  Directory 
entries  contain  a BCD  coded  representation  of  the  message  label  and  a 
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mersage  file_poS  ition  pointer.  If  bit  2 of  the  pointer  is  a 1,  the  message 

{ ) . ^ 

pointed  to  is  a core-stored  message. 

The  last  name  of  the'Vnput  message  file  is  TEXT.  The  last  name 

of  the  output  message  file  is  DISTXT.  The  last  name  of  the  directory  file 

created  by  DIRGEN  is  DIRTAB.  The  first  name  wilT  be  the  same  for  both 

output  files  and  is  specified  when  DIRGEN  SAVED  is  Resumed  by  entering 

it  as  the  first  argument  of  the  command  (See  Part  A below). 

The  directory  filte  must  be  read  into  core  by  calling 

INITYP  (namel.)  before  the  first  call  to  TYPEIT  which  has  a disk-me  ssag-e, 

£ 

or  core-message  label  as  an  argument* 

DIRGEN  will  use  the  $ code  as  the  disk  label  delimiter  and  the  / code 
as  the  core  labeJL  delimiter.  A second  argument  may  be  given  in  the  Resume 
DIRGEN  command  specifying  a substitute  character  to  be  used  for  the  $. 

No  provision  has  been  made  to  substitute  for  the  slash.  \ 

Similarly,  DIRGEN  will  use  the  * code  as  the  message  delimiter, 
unless  a substitute  code  is  specified  in  the  third  argument  (optional)  of  the  ' 
Resume  DIRGEN  command.  ' j 

In  general,  short,  frequently  used  message  labels  are  kept  in  core, 
while  longer,  or  infrequently  used  lables  are  stored  on  tl je  disk  for  most 
efficiency.  / 


A. 


R DIRGEN  mfile  -Id-  -md- 


Usage: 

In  the  above  command,  mfile  is  the  first  name  of  an  ASCII  file 
(whose  last  name  is  TEXT)  containing  the  messages  and  labels  to  be  pro- 
cessed. The  optional  arguments.  Id  and  md  are  substitute  JLabel  delimiter 
and  message  ^delimiter  characters  to  be  used  if  the  standard  $ and  / are 
undesirable  for  some  reason. 


B.  Operation: 

V The  arguments  are  read  from  the  command  buffer^and  used  to  set 

the  name  of  the  TEXT  file  to  be  processed  and,  if  the  second  and  third 
arguments  exist,  to  establish  t^ie  new  delimiters.  If  a directory  file  with 
this  first  name  already  exists,  it  and  the  corresponding  DISTXT  file  are 
deleted  so  as  to  start  with  a clear  slate.  Then  the  TEXT^file  is  opened 
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for  reading  and  the  DISTINCT  file  is  opened  for  writing  and  address  pointers 

* 

to  a core-  message  storage-  area  and  a disk-message  storage  area  are  set 
to  their  starting  locations.  Finally,  allj  flags  and.counters  are  initialized  to 
zero  and  the  first  block  of  data  from  the  TEXT  file  is-rea-d  into  core  by  the 
subroutine  SUMMON.  * j '* 

L Having  made  the  above  preparations,  DIRGEN  loops  through  the 

following  steps  as  it  processes  the  TEXT  file  and  creates  the  DISTXT  and 
DIR  TAB  files: 

* 

1.  Examine  input  characters  looking  for  a disk-label 
or  core-label  delimiter. 

2.  When  a label  delimiter  is  found  (set  core-label  flag  / 

if  it  is  a core-label),  look  for  similar  delimiter  within 

the  next  seven  characters. 

* \ 

3 . If  no  second  label  delimiter  is  "found  within  seven 
characters,  go  to  error  exit. 

4.  Convert  label  string  to  BCD  and  see  if  it  is  already 

in  the  directory  table  formed  so  far.  / 

, * • / 

5.  If  a similar  label  is  already  in  the  table,  store  this 

one  in  a special  array,  set  the  "ignore  flag,?,  and  l 

skip  next  step. 

6.  Add  this  label  to  the  directory  table  and  increment 

the  table  index  bylwo . . * 

7.  Examine  more  input  characters  looking  for  a text 
delimiter. 

8.  If  at  any  time  dujririg^cha racte-r  scanning  the  end  of 
the.  input  buffer  is  reached,  call  SUMMON  to  read  1 

in  more  input.  • . ' 

9.  When  a text  delimiter  is  found,  copy  text  which  follows 

into  either  the  disk-message  buffer  or  the  core- 
message buffer,  depending  upon  setting  of  the  cofe- 
ulabe  1 f lag . ^ ■ ■ 

10.  Insert  address  of  the  buffer  area  just  filled  into  the 
directory  table  just  after  the  label  inserted  in  step  6. 

11.  If  core  table  address  inserted  above,  set  a special 

/ core  bit  (bit  2)  in  the  pointer. 

It  disk-message  buffer  is  filled  during  step  9,  write 
buffer 'into-  DISTXT  file  and  reset  buffejr  parameters. 

nK— *>If  end  of  input  buffer  is  reached  before  a second 
. delimiter  is  found,  ca-ll  SUMMON  to  read  more. 

14.  Insert  character  count  of  input  between  text  delim- 
iters into  decrement  of  text  pointer  just  added  to  table. 

15.  Reset  flags  and  return  to'  step  1.  ^ 
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When  SUMMON  finds  no  more  input  text  to  be  read,  DIRGEN  com- 

v 

pletes  the  output  files  and  prints  a list  of  the  labels  -c  reated.  The  directory 

file  DIRTAB  is  written  in  two  stages,  the  pointe  r/label  table  and  the  core- 

S'  *■ 

message  text,  but  only  after  the  pointer  addresses  relato^Jto  Lhe  core  — stored 
messages  are  adjusted  to  include  the  length  of  the  directory  table  to  which 
it  is  appended.  After  printing  an  on-line  report  of  the  number  of  labels  in 
the  new  table,  DIRGEN  prints  any  multiply  defined  labels  set  ^side  earlier 
and  a list  is  mfde  of  all  created  labels.  Then  DIRGEN  closes  all  files  and 
halts.  1 

SUMMON  ( ):  This  subroutine  reads  the  next  bl|tk  of  input  data  into  the 

input  buffer.  The  exact  amount  of  data  and  parting  storage  address  can  be 
-adjusted  by  setting  certain  parameters  oujiswie  of  SUMMON.  The  CTSS  I/O 
utility  BFREAD,  described  in  section  3.  5.2.2,  is  used  for  reading.  If  this 
routine  encounters  an  end-of-file  mark,  return  to  SUMMON  is  made  to  a 
place  where  a flag  is  set.  This  flag  is  Rested  upon  the  next  entrance  to 
SUMMON  and,  when  found  to  be  on,  transfer  is  made  out  of  SUMMON  to 
the  wrap-up  area  of  DIRGEN.  . 

After  reading  a new  block  of  input,  SUMMON  reinitializes  the  input 
pointe  r,  length,  and  character  count  before  returning  to  the  calling  program 


D. 


Files  Referenced: 
Name 

TEXT 


name  1 
name  1 

name  1 

\ 

Me  s sage  s : 


DISTXT 

DIRTAB 


Function  * 

message  text  (input) 

text  without  labels  (output) 

directory  table  and  core-messages 

(output) 


1.  "error  in  reading  message  file" 

2.  "error  in  writing  disk  text  file" 

3.  "too  many  characters  in  label  - 


long  label  message  skipped"" 


"label  delimiter  not  found  within  400  characters 
file" 


imp  rope  r 
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5.  "text  delimiter  not'  found  within  20  characters  improper  file 

6-  "directory  of  -N  message  pointers  created" 

7.  "the  following  labels  are  multiply-defined,  only  1 set  occurrence 

used  ^ 

lab  1 
lab  2 
etc;  " 

(complete  list  of  labels  created). 

8.  "directory  labels  a’  e 

labl 

lab2 


(complete  list  of  labels  created) 

E.  Source  File; 

DIR  GEN  ALGOL 

F.  * Loading  Procedure:  j 

LAED  " unload-  j 
SAVE  DIRGEN  j 

i 

j 

i 
i 

i 

* . ! 

! 

/ 

; 

/• 


DIRGEN  (SRCH)  UTILIB  (AEDP) 


O 


QD6 


/ 


-537- 


5.  2 PRINTM,  PRNASC 
Purpo se 

To  print  ASCII  files  on  line. 

Description 

_ PRINTM  , , . 

A.  Usage:  R pjqNASC  name  1 name  2 -wdct- 

The  programs  PRINTM  and  PRNASC  will  print  the  ASCII  file  name  1 
name  2 starting  at  computer  word  wdct.  If  the  final  argument,  wdct  is 
omitted,  the  file  will  be  pr-rjted  from  the  top-  If  there  are  non-printing 
characters  in  the  file,  they  will  be  represented  by  the  expression  <nnn>, 
where  nnn  is  the  octal  representation  of  the  character.  In  addition, 

PRINTM  prints  formatting  codes,  such  as  space,  horizontal  tab,  and 
carriage  return,  as  octal  codes  rather  than  transmitting  them  to  the  console 
as  effective  control  characters.  PRINTM  transmits  the  carriage  return 
control  character  after  every  84  characters  of  output.  PRNASC,  in  contrast, 
transmits  the  control  characters  that  occur  in  the  text  and  does  not  send  any 
of  its  own. 

B.  Operation: 

PRNASC  and  PRINTM  begin  by  extracting  arguments  from  the  com- 
mand line:  namel  , name2  and,  if  included,  the  first  word  position  WDCT. 

' FSTATE  is  called  to  determine  the  length  of  file  name  1 n a m e 2 . If  the 
length  is  less  than  wdct,  an  error  message  is  printed  and  the  program  quits. 
Otherwise,  a block  of  432  words  is  read  from  the  file.  If  an  end-of-file  condi- 
tion occurs,  the  EOF  indicator  is  set.  Next,  TYPASC  is  called  to  print  the 
contents  of  the  buffer.  If  the  EOF  flag  is  not  set,  the  next  block  is  read  and 
printed.  { 

The  operation  of  the  sub-procedures  TYPASC,  TRASCI  and  PRT12  is 
explained  below: 

TYPASC  (Ascptr):  TYPASC  performs  the  following  steps: 

1.  TYPASC  allocates  an  output  area  which  is  seven  times  the  size  of  the 

block  of  ASCII  code  pointed  to  by  Ascptr. 
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5.  2 


2.  TYPASC  calls  TRASCI  (Ascptr,  Out) . TRASCI  translates  the  ASCII 
code  in  the  area  pointed  to  by  Ascptr  into  12-bit  BCD,  which  is 
stored  in  the  area  pointed  to  by  Out. 


3.  TYPASC  calls  PRT12(Cut),  which  prints  the  12-bit  characters . 


4.  TYPASC  releases  the  storage  used  as  an  output  area  and  returns 
control  to  the  main  procedure. 

TRASCI  (Ascptr,  Out):  TRASCI  performs  the  following  steps: 

1.  Using  the  string  manipulation  procedures  GET  and  INC,  TRASCI 
steps  through  the  input  area,  extracting  characters  one  by  one. 

X 

2.  If  an  ASCII  character  is  non-printing,  it  is  translated  into  the  ex- 
pression < nnn  >,  where  nnn  is  its’ octal  equivalent. 


3. 


If  an  ASCII  character  is  printable,,  it  is  first  translated  to  12 -bit 
by  ASCTSS  and  then  inserted  in  the  output  buffer  by  PUTOUT. 


PRT  12  (Output);  PRT 12  uses 
acters  pointed  to  by  Output. 


P r i nt 


C.  Files  Referenced: 

namel , name2:  any  ASCII  file 

D.  Mess  ages  :r 

1.  "Given  starting  word  beyond  end  of  file." 

E.  Source  File: 

PRINT M ALGOL 
PRNASC  ALGOL 

F.  Loading  Procedure: 

LAED  PRINT M (SRCH)  NO  LIB 
or 

LAED  PRNASC  (SRCH)  NOLIB 
SAVE  PRINT M (or  PRNASC) 


/ 
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5.3  UPDIR 


Purpos e 

To  update  a master  file  directory 
Des  criplion 

After  a batch  of  input  files  have  been  added  to  the  data  base,  they 
are  written  out  on  tape  and  deleted  from  disk.  The  project  TIP  program 
PUTOUT  transfers  them  to  tape  and  simultaneously  creates  a directory  for 
the  tape.  The  tape  is  copied  on  to  a master  by  means  of  a 1401  program. 
Finally,'  UPDIR  is  used  to  combine  the  directory  for  the  current  batch  of 
files  with  the  directory  for  the  master  tape. 

A.  Usage  R UPDIR  master  -direct-  -inc-  -direct-  -l-. 

"master  direct"  is  the  name  of  the  file  to  be  updated,  "inc  direct"  con- 
tains the  new  (incremental)  directory  information.  If  master  direct  has 
never  been  updated,  this  must  be  indicated  by  the  argument  "l”  otherwise 
that  argument  is  omitted. 

B.  Operation: 

The  directories  are  six-bit  line-marked  BC D-coded’files . A file  is 
defined  in  the  directories  by  a line  with  the  following  format: 

namel  name2  wdct  * line 

"namel  nameZ"  is  the  name  of  the  file,  "wdct"  is  the  length  of  the  file  in 
words,  "bnc"  is  the  line  number.  _ __ 

UPDIR  combines  the  two  directories  by  reading  the  master  directory 
into  a work  area  and  then  reading  in  the  incremental  directory  immediately 
behind  it.  At  this  point,  UPDIR  is  left  with  two  tasks.  First,  it  must  step 
through  the  second  part  of  the  combined  directory  and  increment  all  of  the 
line  numbers  by  n,  where  n is  the  number  of  lines  in  the  first  part.  Sec- 
ondly, since  the  last  record  of  the  master  file  is  padded  out  with  zeroes,  it 
must  make  an  entry  in  thje  directory  to  account  for  it.  UPDIR  steps  through 
the  new  entries  and  totals  the  word  counts.  The  sum  is  divided  by  432  (the 
number,  of  Words  per  record)  and  the  remainder  is  used  as  the  length  of  a 
dummy  entry,  called  BLANK  PADDING.  Finally,  UPDIR  deletes  the  old 
master  directory  and  writes  out  the  new  one. 

C„  Files  Referenced^ 

master  directory  (name  entered  in  command  line) 

Increment  directory  (name  entered  in  command  line) 


D.  Messages: 

1.  'Can't  find  last"  (last  line  of  master  directory) 

2.  ’Error  in  reading  master  file!’ 

3.  "Error  in  reading  incremental  file*' 

E.  Source  File: 

UPDIR  ALGOL 

F.  Loading  Procedure: 

LAED  UPDIR  (SRCH)  UTILIB 
SAVE  UPDIR 
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VI. 


INTREX  BEYOND  1971 


ihe  preceeding  chdptcr  s described  the  Intrex  R.et  rife’,  ai  nysLem  ^ - 
it  has  been  implemented  to  Gate.  Ibis  chapter  dibs-iisscs 
functions  that  vve  hope  to  implement,  the  factors  involved  m exporting 
Intrex,  and  the  characteristics  of  future  generations  of  Intrex-iike  re- 
trieval systems. 


6.  1 Modification  of  the  Intrex  System 

Intrex,  being  an  experimental  retrieval  system,  has  been  a con- 
tinually growing  system.  This  report  is  being  written  at  a time  when  growth 
of  the  current  system' has  leveled  off  so  that  future  new  features  will  not 
significantly  chahge  the  basic  organization  and  operation  of  the  system.  How- 
ever, some  features  yet  to  be  implemented  would  improve  operating  efficienc 
while  others  would  affect  the  user  interface  and  permit  more  flexible  oper- 
ation and  greater  convenience.  Some  of  these  features  are  discussed  below. 


6.  1.  1 Extended  Primary  Search  Capability 

Currently  the  argument  of  a subject  search  command  is  a string  ol 
search  words  all  of  which  (in  their  stemmed  version)  must  be  found  in  one 
of  the  index  phrases  for  the  document.  Searches  are  made  more  flexible 
by  the  ability  to  name  lists  of  documents  resulting  from  a search  request 
and  to  combine  the  named  lists  via  Boolean  operations.  The  need  to  name 
lists  however,  may  be  an  unneccessary  encumbrance  upon  a user  who  is 
interested  in  only  the  resultant  combined  list.  In  such  cases  it  would  be 
desirable  to -incorporate  the  Boolean  operations  directly  in  the  search 
requests.  For  example  the  request 

' c. 

subject  (iron  oxides  or  ferrous  oxides)  and  structural  degradation 


would  be  equivalent  to  the  sequence  of  commands  currently  necessary: 
subject  iron  oxides 
name  iron/subject  ferrous  oxides 

or  iron/name  ironfe/ subject  structural  degradation 
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Note  the  use  of^ar entheses  in  the  first  request  to  indicate  order  of  Boolean 
operations. 

The  Boolean  operations  might  also  be  used  between  commands  rather 
than Strictly  within  the  arguments  of  a single  command.  For  example 

subject  ferrous  oxides  and  not  author  pearlman 

would  produce  all  documents  indexed  under  "ferr-ous  oxid-es"  not  written  . 
by  Mr.  Pearlman. 

Another  useful  extension  of  the  subject  and  the  title  search  comr 

mands  would  be  the  ability  to  control  stemming.  For  example  a command 
\ 

of  the  form 

subject  reactorH- 

A 

would  retrieve  documents  indexed  under  "reactor"  and  "reactors"  but  . 
not  those -indexed  under  " r eactivityn^r^Feactivation"  . Similarly  a com- 
mand  of  the  form 

subject  past* 

would  retrieve  documents  indexed  under  1 not  those  indexed 

■under  "pastel"  or  "paste",  thus  eliminating  some  false  drops.  As  pointed 
out  in  the  earlier  chapters  the  provision  for  adding  this  capability  already  . 

exists  in  the  structure  of  the  inverted  files. 

A third  feature  which  would  also  effect  the  precision  of  retrieval  is 

user  controlled  word  adjacency.  That  is,  a search  request  of  the  form 
subject  high-temperature 

would  match  only  documents  where  "high"  proceeds  "temperature"  with 

no  intervening  words  in  the  indexNpbra.se. 

• An  extension  of  the  "author"  ,-sehrch  command  would  permit  search- 
ing of  documents  with  joint  authorship.  .For  example  the  command 

author  brown,  j.  s.  ' little,  c.w. 

\ 

would  retrieve  all  documents  authored  jointly  by  Brown  and  Little.  This 
command  would  have  the  same  effect  as  a similar  command  issued  with  the 


boolean  connective  and  between  the  names  but  would  be  shorter  and  would 
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piace  the  syntax  of  the  author  command  in  closer  agreement  with  that  of 
the  other  search  commands. 

A final  but  more  subtle  point  of  improvement  is  to  make  all  com  - 
rpands  immediately  executable.  That  is,  , the  CLP  module,  responsible  for 
initiating  c o mm  arid  s , would  execute  a command  immediately  upon  encoun- 
tering either  a slash  (/)  or  a carriage  return  delimiter.  Currently,  com- 
mands are  interpreted  a line  at  ar  time  in  such  a way  that  certain,  apparently 
reasonable  command  sequences  cannot  be  executed.  For  example,  the 

sequence  * 

* * 

subject  aluminum/  output  title 

is  permitted,  but  the  sequence 

subject  aluminum/  name  alu/ output  title 


is  not.  With  the  suggested  change  there  would  be  no  restrictions  on  the 
4 commands  that  could  be  combined  on  a single  line.  This  would  result  in  a 
command  language  syntax  that  would  be  much  clearer  to  users.  In  the  pro- 
cess of  implementing  this  modification,  the  current  Mandingn  capability  im- 
plied by  a series  of  search  commands  separated  by  slashes  would  be  re- 
placed by  the  more  explicit  Boolean  capability  described  above. 

6,  1.2  Extended  Output  Features  . ^ 

Several  extended  feature^  related  to  output  appear  to  be  desirable. 

One  of  the  most  important  of  these  features,  and  one  which  is  in  fact  being 
implemented  at  this  writing,  is  the  request  for  output  off-line.  This  feature 
will  permit  a user  to  initiate  a search  and  examine  results  at  a later  time. 

It  will  also  permit  a user  at  a display  terminal  to  conveniently  obtain  a hard- 
copy list  of  the  documents  he  retrieved  together-  with  pertinent  information 
about  each  document.  In  addition,  this  feature  will  prepare  the  way  for  a 
mode  of  operation  where  users,  remote  from  the  consoles,  can  request 
searches  (via  telephone  or  through  the  mail)  and  have  results  delivered  to 
them  (the  so-called  "delegated"  search  mode). 

■ ■ V ) 

Another  improvement  would  automatically  dec oc^e  certain  information 
in  the  catalog  before  presenting  it  to  the  user,..  For  example,  within  the 
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location  field  the  journal  name  is  represented  as  a CODEN  and  the  date  is 
represented  in  a coded  form.  Both  of  these  could  be  automatically  inter- 
preted. In  addition,  certain  "transfer  codes"  appearing  in  the  catalog  indicate  that 
information  pertaining  to  a field  is  contained  in  another  catalog  record.  This 
information  could  be  located  by  the  Intrex  programs  and  presented  directly 

t 

to  the  user  whenever  a transfer  code  is  encountered.  Other  codes  of  lesser 
utility  such  as  the  cataloger  code,  could  also  be  interpreted. 

Various  other  improvements  in  the  output  format  are  possible.  Further 
extentions  of  existing  commands  could  permit  increased  flexibility — allowing 
output  of  information  for  the  n**1  document  on  a list,  increased  paging  capa- 
bility for  text  access,  and  so  on. 

6<,  1.3  Other  Search  Aids 

Several  other  features  could  be  implemented  that  would  allow  users 
to  control  the  general  searching  process  more  completely  and  improve  pre- 
cision of  retrieval.  The  RESTRICT  command  which  selects  documents  from 
an  already  retrieved  list  based  on  the  appearance  of  a given  string  in  the 
index  terms  could  be  modified  to  function  in  a manner  more  like  the  gener- 
alized search  command  of  Section  6.  1.  1.  A second  minor  improvement 
would  be  to  implement  a form  of  this  command  that  would  apply  to  the  pro- 
pe  codes  of  documents:  * 

J - journal  article  (or  not),  O - original  work,  and  P - 
professional  level. 

In  keeping  with  the  immediately  executable  principle  for  commands 
(Section  6.  1.1),  the  RANGE  command  should  be  reprogrammed  to  apply 
after  a search  command  has  been  executed.  T^hen  the  command  could  be 
given  either  as  pqrt  of  the  search  request  (as  now)  or  separately  after  the 
search  has  been  executed  and  acknowledged. 

A problem  for  the  user  of  any  retrieval  system  is  to  think  of  synon- 
ymous and  other  related  terms  in  order  to  improve  his  search  strategy. 

a t ' - 

Currently,  users  of  Intrex  are  aided  ^n  chosing  synonyms  by  a printed  the- 
saurus available  at  the  console.  A better  arrangement  would  be  to  have  a 

l 

thesaurus  related  to  the  inverted  file  available  on-line  and  displayable  at 
the  user1  s request. 
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Another  feature  related  to  user  aids  for  more  quick  and  convenient 

searching  is  a more  sophisticated  form  of  the  on-line  guide.  Currently  a 

th 

user  types  Minfo  nM  to  display  the  n selection  of  the  guide.  An  easier  to 
use  implementation  would  permit  following  the  INFO  c ommand  word  by 
command  names-  or  other  words  intuitively  related  to  the  concept  for  whiclj 
the  .user  needs  help*  Thus  the  command  INFO  SITvlPEE  SEARCH  would  be 
equivalent  to  the  current  command  INFO  2.  The  implementation  of  this 
feature  could  range  from  a set  of  tagged  messages  to  a context  search  of 
the  guide,  to  a mini  retrieval  program  complete  with  inverted  file  to  sec- 
tions of  the  on-line  guide-  ; 

6.  1-  4 Data  fiase  Update 


Since  the  current  Intrex  program  has  been  aimed  toward  esta'r fil- 
ing a data  base  sufficiently  large  for  meaningful  experimentation,  the  pro- 
grams described  in  Chapter  IV  were  designed  only  for  expansion  of  the  data 
base.  However,  at  this  writing  there  is  no  general  procedure  for  relieving 
and/  or  replacing  documents  in  the  data  base.  A program  for  removal  of 
documents  must  1)  remove  records  from  the  catalog  and  remove  correspond 
ing  entries  in  the-catalog  directory  and  2)  delete  appropriate  document  num- 
bers (pointers)  from^e  lists  in  the  inverted  file.  The  latter  is  the  more 
difficult  of  the  two  operations.  r 

An  approach  to  reducing  the  data  base  without  completely  removing 
documents  is  as  follows.  Catalog  records  for  some  selected  documents  are 
reduced  to  little  more  than  title  and  author,  and  the  catalog  directory  is 
adjusted  correspondingly.  References  to  these  documents  resulting  from 
terms  other  than  those  found  in  the  title  are  removed  from  the  inverted  file. 
Thus  searches  on  title  terms  can  still  locate  the  document.  This  approach 
reduces  the  storage  associated  with  the  document  by  about  8 0%.  The  in- 
verted file  operations  however  are  more  complex  than  thos^  required  for 
complete  removal  of  a document.  In  order  to  strike  a compromise  be- 
tween size  of  data  base  and  economics  of  storage  we  have  already  em- 
barlced  on  an  effort  to  reduce  the  data  base  in  this  way.  The  programs 

i 

written  for  this  purpose  can  be  easily  modified  to  completely  remove  docu- 


ments when  that  becomes  desirable. 
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6.  2 


Exportation  of  Intrex 


The  current  Intrex  programs  were  designed  primarily  to  support 
the  goal  of  experimentation  with  some  advanced  novel  concepts  in  information 
retrieval.  Therefore  the  question  of  transferral  of  these  programs  to  other 
computers  has  been  subordinated  to  the  primary  goal  of  experimentation. 
Indeed,  the  programs  have  been  somewhat  customized  to  the  CTSS  system 
in  order  to  maximize  operational  efficiency.  As  a result,  the  transition 
to  another  computer  system  would  be  made  difficult  for  a number  of  rea- 
sons including 

J ; 

1)  The  lack  of  an  AED  source  language  compiler  on  many 
computer  systems. 

2)  The  dependence  of  variables,  pointers,  coding  scheme  etc. 
on  the  36 -bit  word  size  of  the  7094. 

3)  The  intimate  relation  of  some  program  features  to  system 
features,  the  structure  of  which  is  peculiar  to  CTSS  (file 
system,  1/ O techniques,  interrupts,  etc.  ) 

In  addition  to  these  fundamental  difficulties,  certain  subroutines 
have  been  written  in  machine  language  for  more  efficient  operation.  The 
exportation  of  the  present-system  to  a machine  other  than  the  IBM  7094 
would  require  complete  recoding  of  these  programs. 

— Although  the  current  Intrex  programs  are  not  easily  exportable, 

, v/ 

in  themselves,  the  concepts  upon  which  the  system  is  based  were  designed 
to  be  exported  and  hopefully  will  be.  The  most  effective  vehicle  for  their 
exportation  is  probably  another  retrieval  system,  Intrex  II, j designed  both 
to  incorporate  all  the  -salient  features  of  the  present  system  and  to  be 
more  easily  adapted  to\other  computers.  Further  discussion  of  the  require- 
ments and  properties  of  the  next  generation,  of  the  Intrex  Retrieval  System 
is  found  in  the  next  section,. 

6.  3 Future  Generations  of  Intrex 
' \ 

The,  present  Intrex  Retrieval  System  was  designed  as  an  experi- 
mental vehicle  in  which  several  important  new  concepts  in  library  auto- 
mation would  be  tested.  A second-generation  more  operational  Intrex 
would  probably  differ  from  the  experimental  system  in  a number  of  ways. 


First,  the  user  interface  would  be  somewhat  more  sophisticated, 
encompassing  at  least  the  additional  features  described  in  Section  6*  1 and 
perhaps  other  features  of  a more  advanced  nature.  For  example  on-line 
instructional  aids  might  be  provided  that  adapt  to  the  user1  s past  experience 
and  suggest  customized  search  strategies. 

Secondly,  there  would  be  significant  changes  in  the  augmented  catalog 
The  catalog  record  would  be  much  shorter — several  fieLds  would  be  either 
eliminated  or  compacted.  We  anticipate  the  result  would  be  a reduction  (in 
words  per  record)  of  2.  5 or  3 to  1.  Just  which  fields  would  be  eliminated 
or  reduced  must  be  determined  from  further  experimentation  with  the  pre- 
sent catalog  \ Present  indications  are  however  that  the  number  of  subject 
terms  could  be  reduced,  the  abstract  could  be  eliminated  where  available 
through  text  access,  and  several  shorter  fields  of  less  utility  could  be  re- 
moved. That  is  not'to  suggest  that  these  fields  are  of  no  value  but  that  for 
near  future  system's  the  benefits  do  not  justify  the  additional  costs. 

Third,  there  would  be  changes  in  the  general  progrL  architecture 
and  structure  of  Intrex.  To  a certain  extent  this  structure  would  depend  on 
whether  the  system  operates  on  a large  general-purpose  time  sharing  sys- 
tem or  a smaller  dedicated  machine.  We  believe  that  there  are  many  rea- 
sons to  favor  the  dedicated  machine  and  that  ultimately  information  retrieval 

centers  will  have  to  have  machines  dedicated  to  their  use.  In  either  case 

. * \ - \ 

future  generations  of  Intrex  should  take  advantage  of  the  many  advanced  fea- 
tures available  on  modern  third -generation  computer  systems.  For  example 
in  the  current  environment,  Intrex  runs  as  an  ordinary  u,ser  under  the  CTSS 
supervisor.  This  means  that  each  user  of  Intrex  h^.s  a separate  copy  of  the 
Intrex  programs  which  is  swapped  in  and  out  of  core  by  the  supervisor  in 
the  process  of  time  sharing.  There  is  no  provision  on  this  early  system  to 


An  item  related  to  the  catalog  itself  is  the  indexing  process,  which  pro- 
duces the  catalog  record.  Questions  related  to  the  amount  and  depth  of 
indexing  must  still  be  resolved  by  our  experiments  and  will  relate  to  the 
size  and^  format  of  the  catalog. 

f ’ 
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take  advantage  of  the  fact  that  all  Intrex  users  are  in  fact  employing  the 
same  basic  code  and  therefore  could  share  it.  In  many  more  modern  com- 
puter systems  it  is  possible  for  users  to  share  code  and  data  in  core 
~ 1 6 

through  techniques  such  as  segmentation  (on  MULTICS  ) and  reentrant 
programming.  Such  operation  would  be  expecially  desirable  for  a ma- 
chine dedicated  to  information  retrieval  since  it  could  completely  elim-  , 
inate  the  need  for  swapping.  Even  without  shared  program  code,  large 
memories  and  the  ability  to  perform  multiprogramming  in  most  machines 
reduces  swapping  to  some  extent  sj.nce  more  than  one  potentially  active 
user  program  can  reside  in  core  at  a given  time. 

Several  other  features  are  available  on  the  newer  machines  which 
should  serve  to  increase  the  operational  efficiency  of  the  Intrex  programs 

r* 

significantly.  Not  the  least  of  these  features  is  the  ability  to  address  byte  s 
of  information  directly  through  hardware  features  and  special  related  in- 
structions. A very  large  portion  of  operating  time  of  the  current  Intrex 
System  is  consumed  by  character  string  manipulation,  i.  e.  , packing  and 
unpacking  of  bytes'  in  a computer  word,  and  code  conversion,  Through 
direct  byte  addressing  the  packing  and  unpacking  cduld  be  completely 
eliminated.  The  code  conversion  although  generally  less  time  consuming 
than  packing  operations,  could  also  be  accelerated  on  some  machines  by 
the  availability  of  special  microprogrammed  code  conversion  !,su[ : - 

instructions11.  . 

A fourth  way  in  which  future  generations  of  Intrex  would  differ  is 
in  the  data  base  as  it  relates  to  the  rile  system.  The  relation  of  the  Intrex 
data  base' to  the  CTSS  disk  file  ystem  has  been  discussed  at  length  by 
Kusik^.  Synoptically,  the  CTf  3 file  system,. which  is  not  unlike  a paged 
memory,  is  well  suited  to  an  envirtimmcnt  where  files  of  varying  length 
are  continually  oeing  created,  deleted,  and  modified.  In  this  kind  of 
environment  the  file  system  makes  oestuse  of  the  available  hardware 
storage  resources.  When  the  set  of  files  is  well  structured  and  static 
as  in  the  Intrex  data  base,  the  CTSS  file  system  is  quite  slow  and  in- 
efficient. The  ir  efficiency  is  primarily  due  to  the  fact  that  records  com- 
prising a file  are  scattered  at  random  throughout  the  disk  and  chained 
together  so  that  a large  number  of  disk  accesses  are  needed  to  locate  a 
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particular  piece  of  information  in  a file  of  moderate  length.  A better  approach 
to  the  file  system  structure  has  bee  proposed  by  Kusik  in  which  contiguous 
records  of  a file  are  put  on  the  same  or  adjacent  disk  tracks.  Directories 
to  the  files  (such  as  CATDIR  for  the  catalog  records)  are  distributed  on 
the  disk  in  such  a manner  that  an  entry  in  the  directory  points  only  to  re- 
cords in  the  same  cylinder.  This  arrangement  minimizes  the  total  access 
time  for  a given  piece  of  information  by  eliminating  "chaining"  and  mini- 
mizing disk  seek  time.  In  addition,  it  should  be  noted  that  if  the  stor  age 
device  is  not  the  traditional  disk  then  the  file  structure  could  differ  signif- 
icantly from  both  schemes  mentioned  here  (see  for  example  Goldschmidt  ). 

A final  way  in  which  the  current  Intrex  differs  from,  its  possible 
future  implementation  is  in  its  flexibility.-  Ultimately,  as  information  re- 
trieval requirements  become  more  demanding  and  more  diverse,  the  single 
IR  center  will  not  be  able  to  fulfill  these  requirements.  A Network  of  IR 
centers,  each  center  perhaps  specializing  in  a particular  area  of  information 
for  its  data  base  will  be  needed.  Each  must  then  provide  'a  variety  of  dif- 
ferent types  of  service  including  SDI  and  retrospective  searching  carried 
out  as  a batch  processing  operation  subordinate  to  the  on-line  service.  In 
particular,  search  requests  -of  the  latter  type  should  be  init_ated  at  the  on- 
line terminal  ai^d  be  direct  j.  to  any  center  or  data  base  in  the  network. 

Indeed,  the  Intrex-like  system  of  the  future  may  be  broadened  far  beyond 
the  scope  of  simple  bibliographic  retrieval.  It  may  serve  as  the  catalyst 
for  integrating  publishing  and  clearing  houses  in  a nation  or  world  wide 
network  where  information  of  all  kinds  can  be  collected,  retrieved,  and 
distributed.  The  Intrex-like  system  of  the  future  must  be  prepared  for 
this  network  type  operation  and  must  have  the  evolutionary  ^ability  to 
adapt  to  further  system  requirements  possibly  unknown  at  the  time  of 
its  design. 
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APPENDIX  A 


SUMMARY  OF  COMMON  REFERENCES 


1 . Parameter  Option.  Table  (POT) 

BLIP 

Function:  Hold  blip  character*? 

Interrogated  by:  AND.,  FSO,  IN.,  OUT.,  SEARCH 
Changed  by:  INXCON 

BYTEC 

Function:  Count  of  bytes  printed  from  catalog 

Interrogated  by:  GETFLD 
Changed  by:  DYNAMO,  GETFLD 

CATS2 

Function:  NameZ  of  catalog  files 
Interrogated  by:  DYNAMO,  GETINT,  QUIT 

Changed  by:  INIVAR 

CD 

Function:  Command  line  delimeters  pointer 
Interrogated  by:  AND.,  INIRES,  SAVE 

Changed  by:  INICON 

CET 

Function:  End  T rim- Table  pointer 

„ Interrogated  by:  AND.,  INIRES,  SAVE 

Changed  by:  INICON 

CPI 

Function:  Front- Trim- Table  pointer 

Interrogated  by:  AND.  , INIRES,  SAVE 
Changed  by:  INICON 

COMBFO 

Function:  Common  buffer  0 pointer 

Interrogated  by:  i INIRES,  QUIT,  SAVE 
Changed  by:  IN  IF  IX 

COMBF1  / 

Function:  Common  buffer  1 pointer 

Interrogated  by:  ATSCRN,  GETBUF,  GETINT,  GETLIS, 

SUMOUT,  TABLE,  TRETR1 
' Changed  by:  IN  IF  IX 

COMBF2 

Function:  Common  buffer  2 pointer 

Interrogated  by:  .ANDER,  IFSRCH,  MO  VEIT,  TABLE 
Changed  by:  INIFIX 
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COMBF3 

Function:  Common  buffer  3 pointer 

Interrogated  by:  ATSCRN,  IFSRCH,  TYPEIT 

T Changed  by:  INIFIX 

COMBF4 

Function:  Common  buffer  4 pointer 

Interrogated  by:  ANDER,  ATSCRN,  FSO,  IFSRCH,  NUMBER 
Changed  by:  INIFIX 

COMBF5 

Function:  Common  buffer  5 pointer 

Interrogated  by:  ATSCRN,  FSO,  IFSRCH 

Changed  by:  INIFIX 

COMBF6 

Function:  Common  buffer  6 pointer 

Interrogated  by:  ANDER,  CHKSAV,  CONDIR,  CONNAM,  FSO,  INIFIX, 

LISFIL,  LISTSL,  LONG,  MOVEIT,  NAME,  NEW PT , 
SAVE,  SHORT,  USE 
Changed  by:  INIFIX 

COMLIN 

Function:  Command  line  pointer 

Inter rogated 'by:  GE„TLIN,  SAVE 

Changed  by:  INIFIX 

COMTB 

Function:  Command  table  pointer 

Interrogated  by:  CLP,  NAME 

Changed  by:  INIFIX 

CPUS 

Function:  CPU  times  array  pointer 

Interrogated  by:  MONINT 

Changed  by:  MONINT 


QFLNl 


Function:  Long  message  file  namely 

Interrogated  by:  DYNAMO,  GETLIN,  INFO,  LONG,  TYPEIT 

Changed  by:  INITDB 


DFN1 


Function:  Dump  file  namel 

Interrogated  by:  ANDER.  ATSCRN,  BUFSCN,  CLEANP,  DELIST, 

FSO,  NEWPT,  QUIT,  USE 
Changed  by:  INIRES 
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DFSN1 

Function:  Short  message  file  namel 

Interrogated  by:  DYNAMO,  GETLIN,  INFO,  SHORT,  TYPEIT 

Changed  by:  INITDB 

ESCODE 

Function:  Escape  code 

Interrogated  by:  INIRES,  OPFILE,  QUIT 

Changed  by:  DYNAMO 


IFS2 

Function:  Inverted  file  name2 

Interrogated  by:  GETLIS,  IFSINT,  IFSRCH,  MEADIR,  SEARCH 

Changed  by:  INIVAR 


INTIAD 

Function:  Location  of  level  1 interrupt  routine 
Interrogated  by:  ININT,  INTONE 

Changed  by:  ININT 

LMAP 

Function:  Pointer  to  field  lengths  array 

Interrogated,  by:  GETFLD 

Changed  by:  GETFLD 


MAXCHR 

Function:  Maximum  length  of  output  line 

Interrogated  by:  TYPEIT 
Changed  by:  DYNAMO,  INITDB 

MAXCIN 

Function:  Maximum  number  of  input  characters  per  line 

Interrogated  by:  GETLIN 

Changed  by:  INITDB 

MAX  LIN 

Function:  Maximum  number  of  lines  of  input 

Interrogated  by:  GETLIN 

Changed  by:  INITDB 

MFN1 

Function:  Monitor  file  namel 

Interrogated  by:  ERRGO,  MONTOR,  INIRES 

Changed  by:  INIRES 

MODEG 

Function:  Mode  used  by  procedure  ANDER 

Interrogated  by:  AND.  , NOT 

Changed  by:  CLP,  WITH 


Q 
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MODS 

Function:  Address  of  module  call  count  array 

Interrogated  by:  MONINT 

Changed  by:  MONINT 

MONBF1 

Function:  Location  of  monitor  buffer  i 

Interrogated  by:  INIDSK 

Changed  by:  INIDSK 

MONBF2 

Function:  Location  of  monitor  buffer  Z 

Interrogated  by:  INIDSK 

Changed  by:  INIDSK 

MFUN1 

Function:  Monitor  File  used  namel 

Interrogated  by:  MONTIM,  QUIT,  SEARCH,  SUMOUT 

Changed  by:  MONT  OR 

MFUNZ 

Function:  Monitor  File  used  nameZ 

Interrogated  by:  MONTIM,  SUMOUT 

Changed  by:  MONTOR 

NFN1 

Function:  Name  File  namel 

Interrogated  by:  ANDEK,  CONNAM,  DROP,  NAME,  SAVE,  USE 

Changed  by:  DROP,  USE 

PFN1 

Function:  Password  File  namel 

Interrogated  by:  DYNAMO,  LONG,  QUIT,  SHORT 
Changed  by:  INIRES 

RAM 

Function:  Residual  author  mode 

Interrogated  by:  GATP,  LN 

Changed  by:  INITDB 

REAS 

Function:  Real  time  array  pointer 

Interrogated  by:  MONINT 

Changed  by:  MONINT 

RTM 

Function:  Ready  message  time  pointer 

Interrogated  by:  GET LIN 

Changed  by:  INITDB 
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SFN1 

Function:  Save  File  namel 

Interrogated  by:  LIST,  SAVE 

Changed  by:  SAVE,  USE 


STM 


Function:  System  CPU  time  array  pointer 

Interrogated  by:  CALLIT,  LISTEN,  MONTOR,  SU^ER,  T YPEIT 
Changed  by:  INITDB 


SYS  NAM-  / 

Function:  Intrex  system  name 

Interrogated  by:  MONTOR 

Changed  by:  DYNAMO,  INIVAR 


TEXTX 


Function:  Text  access  pointer 

Interrogated  by:  FSO,  GETLIN 

Changed  by:  CLP,V  FSO,  OUT. 


TOTBLK 

Function:  Dump  File  pointer 

Interrogated  by:  ANDER,  ATS:  RN,  BUFSCN,.  FSO,  GETLIS 

Changed  by:  ANDER,  DELIST,  INIRES,  NEWPT 

TOTNAM  ' 

Function:  Name  File  pointer 

Interrogated  by:  ANDER,  CONNAM 

Changed  by:  ANDER,  CONNAM,  DROP,  INIRES,  USE 

TOTSAV 

Function:  Save  File  pointer. 

Interrogated  by:  SAVE 

Changed  by:  SAVE,  USE  . ’ 

VERBOS 

Function:  T YPEIT  mode 

Interrogated  by:  CLP,  FSO,  GETLIN,  INIRES,  SEEMAT, 

TRETRI,  T YPEIT 

Changed  by:  DYNAMO,  INITDB  LONG,  SHORT 
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2.  System  State  Table  (SST) 


CATII 

Function:  Off-line  output 

Interrogated  by:  FSO,  GETLIN 

Changed  by:  DYNAMO 

CLAMP 


Function:  Restricted  user 

Interrogated  by:  INIRES,  LONG,  MONITOR,  QUIT,  SHORT 

Changed  by:  DYNAMO,  QUIT 

FSONX 

Function:  FSO  not  executed 

Interrogated  by:  EVAL,  SUPER 

Changed  by:  EXIT,  FSO,  OUT.,  SUPER 

GCE 

Function:  Go  command  exists 

Interrogated  by:  SUPER 

Changed  by:  EXIT,  FSO,  OUT.,  SUPER 


GETFLG 

Function:  Interrupt  in  GETLIN 

'Interrogated  by:  INTONE,  LISTEN 

Changed  by:  GETLIN 


HELD 

Function:  Intrex  held  up  for  Message  File  update 

Interrogated  by:  GETLIN 

Changed  by:  GETLIN 

IBEG 

Function:  In  begin  stage 

Interrogated  by:  CLP,  GO,  LISTEN,  SUPER 

Changed  by:  DYNAMO,  GO 

INFOl  . * 

Function:  None  , 

Interrogated  by:  Not  Used 

Changed  by:  INFO  ' | 

INFO  2 

Function:  None 

Interrogated  by:  Not  Used 
Changed  by:  INFO 


INFOX 

Function:  Info,  begin  performed 

Interrogated  by:  GE7?LIN 

Changed  by:  INFO,  TYPEIT 
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INTI 

Function:  Interrupt  level  1 

Interrogated  by:  TYPEIT 
Changed  by:  INTONE,  TYPEIT 


INT2 


Function:  Inte r rupt Teyel  2 

Interrogated  by:  TYPEIT 

Changed  by:  INTTWO,  TYPEIT 


ISI 

Function:  In  sign-in 

Interrogated  by:  LISTEN 

Changed  by:  SIGNIN,  SUPER 

LISA  V 

Function:  At  least  one  reference  list  named 
Interrogated  by:  DROP 

Changed  by:  DROP,  NAME 

RLIC 

Function:  . Restored  li^t  in  core 

Interrogated  by:  AUTHOR,  DELIST,  RESTOR,  SUBJ.,  TITLE 

Changed  by:  NUMBER,  RESTOR 

RRLE 

Function:  - Reference  list  exists 
Interrogated  by:  SUPER 

Changed  by:  DELIST,  RESTOR,  SUBJ.,  TITLE 


SKIPS 

Function:  Skip  sign-in 

Interrogated  by;  SIGNIN 
Changed  by  :***"T7Y£IAMO 


SPEC  1 

Function:  Special  condition  1 

Interrogated  by:  GETFLD 

‘ Changed  by:  DYNAMO 


SPEC  2 

Function:  Special  condition  2 
Interrogated  by:  FSO  / * 

Changed  by:  DYNAMO 


SNX 

~ Function: 


Search  not  executed 


5UPER,  TITLE 

Changed  by:  EXIT,  GATP,  SEARCH,  SUBJ.,  SUPER,  TITLE 


) 
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TESTIT 

Function:  In  test  mode 

Interrogated  by:  DYNAMO,  SUPER 
Changed,  by:  DYNAMO 

TIMES 

Function:  Time  request  active 
Interrogated  by;  GETLIN 
Changed  by:  TIME 


3.  Command  List 
ASF 

Function:  Author  search  form 

Interrogated  by:  ASRCH,  CLEANP,  EVAL,  r SO 

Changed  by:  ACLN,  GATP 


DCNT 

Function:  Document  count 

Interrogated  by:  EVAL 

Changed  by:  RES  TOR,  SEARCH 

FSL 

Function:  Secondary  search ^ist 

Interrogated  by:  EVAL,  FSO 

Changed  by:  FCLEAN,  INITDB,  IN. 


ORL 

Function:  Output  request  list  # 

Interrogated  by:  EVAL,  FSO 

Changed  by:  FCLEAN,*  INITDB,  OUT. 

RESUB 


Function:  Recordered  subject  search  list 

Interrogated  by:  STCLN 
Changed  by:  CLEANP,  SSRCH 

RETIT 


Function:  Reordered  title  search  list 

Interrogated  by:  STCLN 

Changed  by:  CLEANP,  TSRCH 

/ 

RRL  \ 


fnt“rognate,fby1rTND.l,iSASRCH,  CLEANP,  DELIST,  DRPPTR,  EVAL, 

FSO,  SEARCH,  STRCH 

Changed  by:  ASRCH,  CLEANP,  DELIST.  RESTOR,  STRCH,  USE 
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SSF 

Function:  Subject  search  form 

Interrogated  by:  CLEANP,  EVAL,  FSO, 

Changed  by:  STCLN,  SUBJ. 


RANGE,  SSRCH 


TSF 


Function:  Title  search  form 

Interrogated  by:  CLEANP,  EVAL,  FSO,  TSRCH 
Changed  by:  STCLN,  TITLE 
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APPENDIX  B 
DAlf\  BASE  FORMATS 


1,  Catalog 

The  Intrex  catalog  uses  a directory  file,  CATDIR  INTREX,  and  a 
set  of  catalog  files-  The  catalog  files  are  named  CRxxx  INTREX,  where 
xxx  is  a 3-.digit  number.  For  each  document  in  the  data  base,  CATDIR 
INTREX  contains  a one-word  pointer  which  points  to  the  document’s  catalog 
record  within  the  segmented  catalog  files. 

The  first  ten  words  of  the  file  CATDIR  INTREX  contains  general 
information  about  the  catalog  (see  Table  1).  Starting  in  word  1 1 of  the  direc- 
tory, each  word  in  position  n of  the  directory  references  the  document 
with  document  number  n-10  (see  Table  2).  If  a document  is  pot  in  the  data 
base,  the  corresponding  word  in  the  directory  is  zero. 

Each  catalog  record  has  three  separate  regions.  The  first  region 
is  four  words  long  and  consists  of  fixed- length,  binary  encoded  fields  (see 
Table  3).  The  second  region  contains  pointers  to  variable  length  fields  in 
the  third  region  (see. Table  4).  This  region  begins  with  a one-word  header 
which  specifies  the  length  of  the  region.  Following  the  header  are  the  pointers 

3je 

which  contain  the  field  number  in  the  decrement  and  the  byte  position  of  the 

first  character  of  the  next  field  in  the  address.  The  first  byte  of  the  first 

field  is  counted  as  position  I.  The  character  strings  follow  one  after  the 

other  in  region  three.  The  strings  are  digram  encoded;  that  isy  pairs  of 

I 

ASCII  characters,  are  represented  whenever  possible  by  one  unique  nine-bit 
code. 


x 


O 

ic 


* Bits  3-17  of  the  pointer 
Bits  21-35  of  the  pointer 
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Table  1 

Format  of  first  10  words  of  CAT  DIR  INT  REX 


Word 

Contents 

1 

Highest  document  number  in  file 

2 

Size  of  catalog  file  in  words 

3 

No.  of  catalog  records  in  catalog 

4 . 

No.  of  changes  made  to  catalog 

5 

Namel  of  last  segment 

6 

Name2  of  catalog 

7 

Maximum  length  of  catalog  segment 

8-10 

Not  used 

- . _J 

Table  2 


\ 
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Table  3 


Format  of  Region  1 of  catalog  record 


Word 

Bits 

Contents 

1 

0-20 

Document  number  (Field  1) 

1 

21-35 

Online  date  (Field  4) 

2 

0-11 

Catalogers'  codes  (Field  3) 

2 

12-  14 

Level  of  approach  (Field  66) 

2 

15-19 

Language  (Field  36) 

2> 

20-24 

Medium  (Field  30) 

2 

25-30 

Format  (Field  31) 

2 

31-35 

Purpose  (Field  65) 

3 

0-9 

Language  of  Abstract  (Field  37) 

3 

10-15 

Chosen  by  (Field  2) 

3 * 

19-20 

Main  entry  pointer  (Field  20) 

3 

21-35 

Date  acquired  (F-ie-ki  46) 

4 

* 

0-35 

Not  used 

Table  4 


Format  of  Region  2 of.  catalog  record 


Word 

Bits 

Contents" 

1 

0-17 

All.  V s 

1 

18-35 

Number  of  words  in  Region  2 

2 

3-  17 

Field  number 

2 

21-35 

First  byte  position 

3 

0-35  ' 

Same  as  word  2 

\ . . : _ _ 

577 


-562- 


2 , Inv e rted  Files 


The  Author  and  Subject/Title  Inverted  Files  consist  of  n segments. 
Each  segment  of  the  Inverted  File  contains  ten  sections  of  432  computer 
words  (one  disk  record)  each.  If  a long  listbegins  in  Section  10,  it  may 
run  over  into  one  or  more  additional  432  wo^-d  blocks.  Each  section  begins 
with  a one-word  header  containing  a fence  of  octal  7's  in  the  left  half  and 
a list  offset  in  the  right  half  (see  Figure  Bl).  This  offset  is  the  number  of 
computer  words  into  the  section  where  the  first  new  list  begins.  If  no  new 
list  begins  ift  that  section  (because  of  a long  list  beginning  in  a previous 
section  and  ending  in  a subsequent  section),  then  the  offset  will  be  zero. 

Each  list  is  introduced  by  a three  word  header. .^The  first  word  of 
this  header  contains  an  octal  7 in  the  left-most  three  bits  (prefix),  the  num- 
ber of  all-zero  computer  words  used  as  padding  at  the  end  of  the  list  (BWL) 
in  the  next  15  bits  (decrement),  and  the  total  number  of  computer  words  in 
the  list  (CWL)  in  the  right  15  bits  (address).  The  second  word  in  the  header 
contains  the  number  of  documents  in  the  list  (DCL)  in  the  decrement,  and  the 
number  of  references  in  the.  list  (RFL)flin  the  address.  The  third  word  contains 
the  number  of  characters  (bytes ) in  Jhe  index  word  stem  or  name  (BYN)  in 
the  address,  a 1 (author  files)  or  a A (subject  title  files)  in  bits  9-14  repre- 
senting the  maximum  number  of  affix  codes  which  may  be  associated  with  this 
stem/name  (EWN),  and  the  number  of  affixes  in  the  list  in  bits  3-8  (EDS)  if 
a subject/title  file  or  bits  1-8  (INS)  if  an  author  file  (see  Figure  Bl). 

The  ASCII-coded  index  word  or  list  name  is  packed  four  characters 
to  a computer  word  in  the  words  immediately  following  the  header.  Any  un- 
filled words  are  left-justified  and  (binary)  zero-padded. 

Pairs  of  affix  words  follow  the  name.  Each  pair  consists  of  a header 


and  an  ending  code  or  set  of  author's  initials.  The  ending  code,  found  in  the 
subject/title  Inverted  Files,  is  a left-justified  12-bit  code  which  addresses 
one  of  the  entries  in  the  ending  table  residing  in  a file  called  Ending  Test2. 
This  file-table  contains  ASCII  ending  strings  organized  according  to  the 
length  of  the  string  from  longest  to  shortest.  The  left- most  four  bits  of  the  \ 
12-bit  code  gives  the  length  of  the  ending  and,  therefore,  group  within  the 
table.  The  other  eight  bits  provide  the  position  of  that  ending  within tl^e  group. 
Author's  initials  found  in  the  affix  of  the  author  Inverted  Files  are  strings  of 
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RRL.  (CL.) 


Doc,  Count 


List  Pointer 
Address 


Current  List  Pointer 


Pointer  Table 

f 

i __i 

i ' i 

i , 

i i 


r 


S 1 n n n 

DR 

T 

R 

CR 

B 

A 

Segment  or  List  name 

DR  refs,  on  disk  file  (Type  T ) at  record  R 

Cft-  refs.  in  core  ( Buffer  B ) at  Location  A 


f— 


-I 


I 1 


Fig.  B.l  Inverted  File  Format 
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from  one  to  four  ASCII  characters  packed  left-justified  into  the  affix  word. 

The  affix  header  contains  the  number  of  such  initial  codes  in  the  tag  por- 
tion (bits  18-20).  In  subject/title  files,  the  tag  of  these  headers  is  empty. 

In  both  types  of  files,  the  address  portion  of  the  affix  header  words  contains 
the  number  of  references  associated  with  this  affix  (REF),  which  is  a sub- 
set of  the  entire  reference  list,  and  the  decrement  portion  contains  the  num- 
ber of  documents  in  that  subset  of  references  (DCE). 

Following  the  affix  list  is  the  list  of  reference  words  associated 
with,  the  stem  or  name.  The  length  of  this  list  may  range  from  1 to  several 
thousand  computer  words  taking  up  many  sections  of  the  Inverted  File.  Each 
reference' word  contains:  a document  number  (DN);  a property  code  (PC); 

an  affix  number  (EN  or  IN);  and  a term  or  author  number  (TN  or  AN).  In 
addition  to  these,  the  subject/title  references  contain  a weight  (WT)  and 
word  number  (WN).  The  bit  positions  and  meaning  of  these  components  are 
shown  in  Figure  Bl.  The  affix  number  is  used  to  connect  the  reference  word 
to  a particular  affix/header  word  pair.  For  instance,  a three  in  this  compo- 
nent  means  that  the  third  affix  in  the  group  of  affixes  should  be  used  whenever 
this  reference  prompts  the  printing  of  the  stem  with  its  ending  or  the  author 
name  with  its  initials. 

Inverted  File  lists  may  be  split  between  sections  only  at  points 
within  the  affix  group  or  the  reference  list  and  never  in  the  header  or  stem/ 
Hame.  To  avoid  the  latter  condition,  an  area  of  ten  computer  words  or  more 
must  exist  between  the  end  of  any  list  and  the  end  of  a section  in  order  for  a 
new  list  to  begin  in  that  section.  When  fewer  than  ten  words  are  left  in  the 
section,  they  are  (ASCII)  blank-padded  and  the  next  list  begins  at  the  start 
of  the  next  section.  It  is  these  blank  words  that  are  recorded  in'the  BWL 
component  of  the  three-word  .list  header.  They  are  also  reflected  in  CWL 
(computer  words  in  the  list).\ 
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3.  List  Pointers 

The  "current  list"  pointer  resides  in  the  "_resultant  ^reference  list" 
component  of  the  Command  List,  RRL.  (CL.),  which  is  a single  computer 
word  whose  address  portion  points  to  an  entry  in  the  table  of  augmented  list 
pointers.  An  augmented  list  pointer  is  a group  of  three  contiguous  words  con- 
taining data  about  a reference  list.  Pointers  in  this  table  may  be  the  result 
of  searches,  Boolean  operations , NAME  commands,  or  DOCUMENT  com- 
mands. At  present,  the  table  is  120  words  in  length  and  can,  therefore,  hold 
forty  list  pointers. 

The  first  word  of  a three-part  pointer  is  used  for  one  of  two  purposes. 

If  the  list  is  one  which  has  ieen  NAMEd  by  the  user  and  is,  therefore,  residing 
A*. 

in  the  Name  File,  the  first  pointer  word  holds  the  name  (in  6-bit  BCD)  of  the 
list.  If  the  list  is  at  least  partially  disk- resident  in  some  other  file  (such  as 
the  "Dump  File  or  an  Inverted  File  s egment) , then  the  first  word  will  hold  the 
name  of  that  file.  In  any  case,  the  first  word  may  be  thought  of  as  the  "name" 
portion.  If  the  list  is  entirely  core- res  ident,  this  word  is  empty. 

The  second  word  of  the  augmented  pointer  is  used  to  point  to  that 
part  of  the  list  which  resides  on  the  disk.  The  address  portion  contains  the 
file  depth  expressed  in  number  of  432-word  records  at  \yhich  the  list  begins. 
The  decrement  portion  contains  the  length,  or  number  of  references  on  the 
disk  for  this  list.  The  tag  of  this  word  contains  a type  code.  AT  in  the  tag 
means  the  list  is  to  be  found  in  an  Inverted  File  segment.  A/2'  means  the 
list  is  to  be  found  in  the  Dump  File,  and  a '4'  means  it  is  ii^the  Name  File. 
This  code  provides  a means  of  determining  how  to  treat  the  name  in  word  one. 
If  the  entire  list  is  core- resident,  word  two  is  empty.  s , 

.Word  thre(|  provides  the  location  (address  part)  and  length  (decre- 
ment) of  the  core-stored  portion  of  the  list.  It  also  contains,  in  the  tag  compo- 
nent, a "common  buffer  number"  designating  which  of  the  Intrex  butters 
should  be  used  for  reading  the  disk-stored  portion,  if  any,  of  the  list.' If  the 
entire  list  is  disk- resident,  word  three  is  empty.  A NAMEd  list  pointer  „ 

uses  word  three  to  hold  the  document  count.  Figure  B2  shows  a pointer  to 
an  Inverted  File  List. 
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Fig.  B.2  Augmented  List  Pointer  Format 
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4.  Fiche  Direct 


Fiche  Direct  gives  the  locations  of  the  full  texts  of  documents  in 
the  data  base.  The  directory  is  ordered  by  document  number:  v/ord  n of 
the  directory  gives  the  location  of  documentja.  Each  word  contains  four 
fields:  fiche  number,  firstframe  positiorfi,  last  frame  position  and  document 

number  (see  Table  5)„  If  the  full  text  of^a  document  is  not  on  microfiche,  the 
fiche  number  field  is  zero  and  the  first  frame  position  has  a special  code  in- 
dicated ;n  Table  6. 

Table  5 

Fiche  Direct  Format 


Field 

Bits  ' 1 

^ . I _ 

Fiche  Number 

0-10 

First  Frame  Position 

11-16 

Last  Frame  Position 

17-22 

Document  Number 

23-35 

Table  6 
Special  Codes 


Code  (in  firstframe 

Exceptions  to  Microfiche  Text  Storage 

7 position) 

i 

Microfiche  text  access  to  be  available  at 
a \ater  date.  (Filming  will  be  done  after 
cataloging  the  document.)  (Access  number, 
when  known,  will  be  added  to  FICHE  DIRECT 
by  update.)  \ 

2 

Microfiche  text  access  available  only  to  in- 
dividual bibliographic  parts  of  this  document. 
(For  example,  the  document  record  is  that 
for  an  entire  journal.) 

3 

Microfiche  text  access  will  not  be  available. 
Har^l  copy  access  only.  (Document  text  runs 
mor^i  than  60  pages;  document  typography 
too  potrr^to^film;  document  is  "temporary" 
as  say,  preprint  to  be  replaced  by  a perma- 
nent publication.)  The  last  frame  position 

contains  the  right-most  six  bitsof:an  ASCII 
letter  code  for  the  location  of  the  guaranteed 

hard  copy  access.  If  this  Location  is  ini  a li- 
brary whose  name  has  an  established  code 
(see  field  II  in  the  manual)  that  code  is  used. 
If  this  location. is  a shelf  adjacent  to  the  Iiitrex 

display  console,  the  code  letter  ,,iM  is  entered. 

O 
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APPENDIX  C 


THE  INTREX  ENVIRONMENT 


1 . The  Time-Sharing  System: 

15 

The  Compatible  Time-Sharing  System  (CTSS)  was  developed  at  MIT 
by  Project  MAC  under  the  sponsorship  of  the  National  Science  Foundation 
the  Office  of  Naval  Research,  and  the  Ford  Foundation.  It  was  one  of  the 
pioneering  efforts  in  the  time—  sharing  field,  becoming  operational  in  1963, 
and  through  continuous  growth  and  improvement  it  has  reached  a high  level 
of  utility  and  reliability.  CTSS  is  implemented  bn  an  IBM  7094  computer  using 
two  32K  word*  units  of  core  memory.  One  memory  unit  ( refer  red  to  as  A-core) 
holds  the  operating  system.  This  operating  system  handles  I/O,  scheduling, 
the  swapping  of  user  programs,  and  general  job  monitoring . The  other  mem- 
ory unit  (referred  to  as  B-core)  Is  reserved  for  the  user  program  which  is 
currently  being  run.  No  multiprogramming  or  Imaging  capability  exists  on 
CTSS  so  only  one  user  program  can  reside  in  B^eore  at  a given  time.  User  - 
programs  are  swapped  in  and  out  when  an  i/O  transfer  is  called  for  or  when 
the  time  slice  allocated  by  the  supervisor  scheduling  algorithm  has  elapsed. 
When  a user's  program  is  swapped  out  of'  core,  its  core-image  is  dumped 
onto  the  high  speed  drum  from  which  it  can  be  reloaded  when  its  turn  arrives 
again.  The  computer  time  used  for  swapping  is  tabulated  by  the  supervisor 
and  a share  of.it  is  assessed  each  user,  together  with  the  processing  time 
us  ed. 

The  user  interacts  with  CTSS  through  commands  typed  on  the  termi- 
nal  keyboard.  Most  commands  have  one  or  more  arguments  specifying  how  or 
upon  which  entity  the  command  is  to  be  implemented.  For  example,  when  the 
command  is  to  begin  execution  of  a user's  ;previously  loaded  but  disk  resident 
program,  the  command  is  RESUME  or  R and  the  first  argument  after  the 
word  RESUME  is  the  name  of  the  program.  Other  (optional)  arguments  may 
follow  the  program  name  and  these  are  read  and  used  by  the  program  as  it 
begins  operation.  Thus,  in  the  command,  RESUME  INTREX  SHORT  HOLD, 
the  command  RESUME  will  cause  the  program  file  named  INTREX  SAVED 


_1 

kA  word  on  the  7 094  is  36  bits  plus  parity.  Words  have  the  following  format: 
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Pre- 

fix 

Decrement 

Tag 

Addres  s 

0-2 

3-17 

■■■  V*  s 
‘ 18-20 

21-35 
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to  be  brought  into  B-core  and  executed.  The  program  INTREX  will  then  read 
the  arguments  SHORT  and  HOLD  and  use  them  to  set  the  appropriate  pro- 
gram mode  switches.  INTREX  or  any  other  program  once  started  can  be 
terminated  immediately  by  pushing  the  "attention*1  or  "quit"  button  twice 
in  succession**  Other  CTSS  commands  permit  a user  to  create, edit,  com'* 
pile,  or  assemble  programs  and  perform  some  other  functions  described 
below. 

X 

One  of  the  most  powerful  and  useful  characteristics  of  the  CTSS 
architecture  is  its  method  of  storing,  addressing,  sharing,  and  generally 
managing  files.  A file  is  a collection  of  disk-stored  or  drum-stored  symbols 
which  may  be  a source  program,  an  object  program,  printable  text,  or  set 
of  data.  The  actual  location  of  files  on  physical  storage  devices  is  handled 
by  the  CTSS  supervisor  and  need  not  concern  the  system  user,  who  always 
addresses  the  files  by  a symbolic  name.  Each  file  has  two  names,  the  sec- 
ond of  which  usually  classifies  it  as  a particular  type.  For  example;  a file 
whose  last  name  is  SAVED  is  assumed  by  CTSS  to  be  an  executable  program. 
Furthermore,  any  executable  program  must  be  given  the  last  name  SAVED 
before  it  can  be  executed  at  any  time  other  than  immediately  after  loading. 
Files  whose  last  names  are  BSS  are  assumed  to  be  relocatable  binary  (ob- 
ject) programs.  Only  these  can  be  loaded  together  to  become  an  executable 
program.  Files  whose  last  names  are  ALGOL  are  assumed  to  be  source 
programs  in  the  AED  language  and  only  these  can  be  compiled  by  the  AED 
compiler  into  an  object  program  (See  next  section). 

File  names  are  kept  by  CTSS  in  a "User's  File  Directory"  (UFD), 
which  may  be  accessible  to  the  individual  programmer  or  shared  by  several 
users.  A UFD  which  is  sharable  is  called  a Common  File  (or  COMFIL).  A 
CTSS  account  may  consist  of  one  or  more  "problem  numbers",  each  main- 
taining its  own  set  of  Common  Files  and/or  individual  UFD's  . A user  upon 
Ml°gging  in"  to  CTSS  enters  his  "home  UFD".  He  then  may  switch  into 

7 

other  UFD's  where  permission  to  do  so  has  been  established  or  merely  share 
programs  in  other  UFD’s  (again  when  permission  has  been  established).  The 
Intrex  software  system  currently  exists  in  COMFIL  4 of  problem  number  T289. 


**  However  see  Section  3.  1 . 10.3  in  regard  to  INTREX. 
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System  components  (source  files  etc.)  are  stored  in  other  Common  Files. 
Through  the  sharing  of  programs  many  users  who  have  individual  accounts 
on  CTSS  can  use  the  Intrex  retrieval  programs  without  having  to  maintain 
copies  of  the  programs  intheir  own  directories.  Such  programs  can  be  made 
available  to  users  in  a read-only  mode  to  protect  the  programs  from  change. 

1 3 

Z,  The  AED  Programming  Language 

AfcD  (Automated  Engineering  JDesign)  is  a high  level  source  language 
based  on  ALGOL-60  and  developed  under  the  direction  of  Douglas  T.  Ross 
at  the  Electronic  Sytems  Laboratory  of  MIT.  AED  includes,  besides  the 
conventional  features  of  ALGOL,  provision  : dynamic  storage  allocation 


and  list  processing.  Also  included  but  not  b t directly  into  the  language  are 


AED  was  initially  implemented  on  the  IBM  7 09  but  was  brought  to  CTSS  in 
1963  and  "'grew  up"  there.  Currently  the  language  is  also  available  on  the 
IBM  360/67  and  other  third  generation  machines. 

Intrex  software  employs  several  important  features  of  the  AED  lan- 
guage and  these  greatly  facilitated  the  integration  of  system  components.  Per- 
haps the  most  useful  feature  of  all  was  the  flexibility  of  subroutine  calls  and 
linkages  such  as  the  ability  to  pass  a variable  length  string  of  arguments  to 
the  routine  being  called  and  to  chain  through  an  unlimited  number  of  routine 
levels  and  back  without  restrictions.  Other  features  which  played  a vital  role 
in  Intrex  construction  are  the  free  storage  package,  the  COMMON  variable 
area,  the  ability  to  conveniently  pack  words  and  refer  to  the  packed  compo- 
nents, and  the  ability  to  insert  machine  language  instructions  where  AED 
language  statements  are  inadequate  or  inconvenient  to  perform  the  desired 
function. 

Scarce  programs  written  in  AED  are  entered  into  the  CTSS  file  system 
via  input/edit  programs  such  as  EDL  or  QED^  where  each  character  is  re- 
presented by  a 6-bit  BCD  code.  The  implementation  of  AED  on  CTSS  is  via 
the  command  TAED  which  calls  the  compiler  into  action  upon  the  file  whose 
first  name  is  specified  as  an  argument  to  the  command  and  whose  last  name 
is  ALGOL.  Other  arguments  may  be  appended  to  the  command  to  designate 
special  modes  or  to  generate  additional  output  files  (e.g.,  a symbol  table). 


^irocedures  for  string  and  character  manipulation  and  several  other  features. 
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appendix  e 

SUBROUTINE  LINKAGES 


SUBROUTINE 

ANDER 

AND. 

ASCINT 

ASCIT6 

ASCITC 

ASCTSS 

ASIDE 

ASSET 
ATLCLN 
ATSC  RN 
AUTHOR 
BCDASC 

BCD'  -C 

BFCLOS 

BFOPEN 

BFREAD 

BFWRIT 

BUFFER 


BUFSCN 

BZEL 

CALLIT 


CHFILE 


CALLED  BY: 

AND.,  NAME,  SEARCH 
CLP* 

IN.,  NUMBER,  OUT.,  RANGE,  TABLE 
MONTOR 

BCDASC,  LOCMES,  PREP, . C.  ASC 

CTSIT,  CTSIT6,  TRASH 

GETLIN,  LISTEN,  MONTIM,  MONTOR, 
PUTS,  SEARCH,  SUMOUT,  SUPER, 
TYPEIT,  WRT 

ASIDE 
STCLN * 

SEARCH 
CLP  * 

DROP,  ERRGO,  IFSRCH,  INITYP , LISFIL, 
LIST,  LISTS L,  MONTOR,  QUIT,  SUMOUT, 
USE 

PREP,  SYSGEN 

ERRGO.  INIDSK,  PREP,  REND,  TABLE 
INIDSK,  PREP,  REND,  TABLE 
PREP,  REND,  TABLE 
PUTS,  SUMOUT 

BFOPEN,  CHKSAV,  CONDIR,  CONNAM,\ 
INIRES,  LISFIL,  LISTSL,  LONG,  MOVEIT, 
NAME,  QUIT,  SAVE,  SHORT,  SUMOUT, 
SYSGEN,  USE 

ATSC  RN,  ANDER* 

CHKNAM,  QUIT 

ANDER,  CLEANP,  CLP,  DROP,  INIFIX, 
INITDB,  LIST,  NUMBER,  RESTOR, 
SUPER,  USE,  BUFSCN,  ATLCLN 

SYSGEN 


* Indicates  procedure  makes  call  via  CALLIT. 
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m 


SUBROUTINE 

CALLED  BY: 

CHKNAM 

AND.,  NAME,  SAVE 

CHKNUM 

ASCINT,  INFO 

CHKSAV 

SAVE,  USE*  LIST* 

> CHNCOM 

CLEAN 

CLFILE 

IFSINT,  QUIT,  REND,  SYSGEN 

AUTHOR,  SUBJ.,  TITLE, NUMBER, * RESTOR 

GET  LIN 

C^LOSE 

j y 

ANDER,  CLFILE,  CHKSAV, CONDIR, 
CONNAM,  DYNAMO,  FSO,  GETINT, 
IFSINT,  IFSRCH,  INIR.ES,  IHIVAR, 

- j 

t LISFIL,  LISTSL,  LONG,  NAME,  QUIT, 

SAVE,  SEARCH.  SHORT,  SUMOUT, 
SYSGEN,  TIME,  USE 

CLP 

SUPER 

CNTLOC 

FREC,  FREE,  FRET,  FREZ 

COMARG 

COMENT 

DYNAMO,  INIVAR 
CLP* 

COMPAR 

SPCTRN,  TABLE 

COMPEL 

IFSRCH,  IN.,  MONTOR,  OUT.,  RANGE, 
SPCTRN,  TABLK 

CONDIR 

LISTSL,  USE* 

CONNAM 

COPY 

DROP 

AUTHOR,  EVAL,  GETEND,  GETFLD,  IN., 
NEXITM,  SEEMAT,  STEM,  S.T.,  TABLE, 
TRANS,  TYPEIT 

CTSIT6 

AND.,  CHKNAM,  INFO,  QUIT,  SIGNIN 

DEC  1 

NEXITM,  PUTS,  STEM,  TRANS,  TYPEIT 

DEFBC 

GETFLD,  IFSRCH,  INIRES,  SEARCH 

DELFIL 

CONNAM  DROP,  SUMOUT,  SYSGEN,  USE 

DELIST 

AUTHOR,  IFSRCH,  NUMBER,  RESTOR, 
SUBJ.,  TITLE 

DERBC 

TRETRI 

DIST 

DNSORT 

EVAL,  FSO,  SPCTRN 
NUMBER 

DORMNT 

ANDER,  CLP,  ERRGO,  FREC,  FREE,  FRET , 
FREZ,  PREP,  PUTS,  QUIT,  SHORT,  SUPER, 
TABLE,  TYPASH,  TYPEIT 

O 
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SUBROUT1NE 

DROP 

drpptr 

dynamo 

ENDTAB 

ERRGO 

EVAL 

EXIT 

FAPDBG 

FC  LEAN 

FERRTN 

FIELDS 

FILCNT 


FIND 
FLDNAM 
FRA  LG 


FREE 


FRER 

FRET 


\ 


FREZ 


FRESET 

FRMRAL 

FSIZE 


GALLED  BY; 

CLP  * 

AND.,  NAME,  DELIST 
SUPER* 

REND 

IFSRCH 

SUPER* 

CLP* 

CLP* 

C LEANP,  DELIST  , NEWPT 

SETRTN,  SYSGEN 

FSO 

CHKSAV,  CLEANP,  CONDIR,  CONNAM, 

GET  LIN,  IFSINT,  INIRES,  LISFIL,  LISTSL, 
PREP,  REND,  TABLE 

NEXITM,  SPETRN 
EVAL,  FSO,  IN.,  OUT 

INIAUT,  INICON,  INIEVL,  INIFIX,  INIFLD, 
INIOUT,  INIRNG,  INIS.T,  MONINT,  PREP, 
SIGNIN,  SYSGEN,  TABLE 

AUTHOR,  CONNAM,  GETFLD,  IFSINT, 
INIFIX,  , INITYP,  INIVAR,  IN., 

SYSGEN,  TABLE,  TYPASH 

CONNAM,  GETFLD,  TYPASH 

ASCITC,  CHKNAM,  CLP,  CONNAM,  EVAL, 
FC  LEAN,  FRA  LG,  GETFLD.  GETINT. 
GETLIN,  IFSINT,  IFSRCH,  INFO,  INIFIX, 

, INITYP,  NEXITM,  NUMBER, PREP, 
QUIT,  RANGE,  REND,  SUBJ.,  S.T., 

TABLK,  TITLE,  TYPASH,  TYPEIT, 

. C . AS  C 

AUTHOR,  ASCIT,  ASCITC,  ASCIT6, 
BUFSCN,  CLP,  CTSIT , CTSIT6,  EVAL, 
GETFLD,  GETLIN,  IFSRCH,  IN'.POT, 
INIS.T,  INITDB,  MONINT,  NT.XITM, 
NUMBER,  PREP,  RANGE,  REND, 

SEARCH,  SUBJ.,  S.  T .,  TABLE,  TABLK, 
TITLE 

SYSGEN 

RANGE 

SUPER 


4 


SUBROUTINE 


CALLED  BY 


FSO 

FSOCLN 

FSTATE 

FWAIT 

GET 


GET6 

GET  12 

GETBRK 

GETCOM 

GETEND 

GETFLD 

GETIME 

GET  INC 

GETINT 

GETLIN 

GETLIS 

GETMEM 

GETP 

GETSET 

GETTAB 

GETTM 

GETWRD 

GIVTAB 

GNAM 

GO 

IFSET 

IFSINT 

IFSRCH* 

INC 


SUPER  * 

FSO,  LISTEN* 

FILCNT,  GETLIS,  INIDSK,  INITYP, 

PUTS,  SEARCH,  SYSGEN,  LSE 

ANDER,  BFOPEN,  BF WRIT,  GETLIS 

ASCINT,  AUTHOR,  CAPASG,  CHKNUM, 
COMPAR,  COMPUL,  CTSIT,  CTSIT6, 
FIND,  GETLIN,  IFSRCH,  IN.,  NAM5, 
NEXITM,  OUT.,  SIGNIN,  STEM, TABLE, 
TYPEIT,  * C.  ASC 

ASCIT,  ASCITC,  ASCIT6,  PREP 

GETLIN 

LISTEN,  PUTS,  TYPEIT 
COMARG,  SYSGEN 
EVAL 
FSO 

GETLIN,  GETTM,  MONTIN,  WHEN 

GETFLD 

FSO,  FSOCLN 

CLP*  SYSGEN 

ANDER,  FSO,  NUMBER 

FREE,  FRET,  SIZE 

FSO,  INXCQN 

GETFLD 

GETFLD 

INIMON 

INITYP 

IFSINT 

COMARG  , 

CLP* 

IFSRCH,  SEARCH 

INIVAR 

SEARCH 

ASCINT,  ASCIT,  ASCITC,  ASCIT6,  CTSIT, 
CTSIT6,  E.VAL,  FSO,  GETFLD,  GETLIN, 
INT ASC, /MATCH,  NEXITM,  OCTASC, 
SEEMAt,  SPCTRN,  STEM,  TABLE, 

TA  B LK , TRANS,  TRASH,  TYPEIT 
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CALLED  BY: 


SUBROUTINE 

t^tq,  CAPASC,  CHKNUM,  COMPAR,  COMPUL 

DROP,  FIND,  FSO,  GETFLD,  IN., 
NAM5,  NEXITM,  OUT.,*PUTS, 
SEEMAT,  TABLE,  TRANS,.  C.  ASC 


INC6 

ASCIT,  ASCITC,  ASCIT6,  CTSIT, 
PREP,  TRASH, 

INC  12 

GET  LIN 

INCHAR 

SPCTRN,  TABLE 

INDENT 

f SOCLN,  FSO 

INFO 

CLP* 

INIAUT 

SEGINT 

IN  ICON 

IN  IF  IX 

IN  IDS  K 

DYNAMO.  FSO,  GETLIN,  MONTOR,  SUMOUT 

INIEND 

IFSINT 

INIEVL 

INIT2 

IN  IF  IX 

SUPER* 

INIFLD 

SEGINT 

INI.  C. 

IN  IF  DC 

INIMON 

DYNAMO 

ININT 

DYNAMO 

INIOUT 

IN  IT  2 

IN  IRES 

DYNAMO 

INIRNO 

SfeGINT 

INIS.  T 

INIT2 

INITDB 

SYSGEN 

INITYP 

DYNAMO,  GETLIN,  INFO,  LONG,  SHORT 

IN  IT  2 

IN  IF  DC 

INIVAR 

SUPER* 

INIVRB 

SEGINT 

INMON2 

SEGINT 

INTASC 

GETFLD,  SEEMAT,  TRANS,  TYPEIT 

* 

IN. 

CLP* 

INXCON 

DYNAMO 

IODIAG 

ERRGO 

ISARG 

NEXITM 

ISARGV 

NEXITM,  TYPEIT,  . C.ASC 

-587- 


CALLED  BY: 


SUBROUTINE 

JOBTM 

KILFAP 

LDOPT 

LEGFLD 

LIBRY 

LINKUP 

LISFIL 

LIST 

LISTSL 

LISTEN 

LOCMES 


LOCSEC 

LONG 

LOOKUP 

MAINBD 

MATCH 

MONINT 

MONTIM 


MONTOR 

MOVEIT  ' 

NAM5 

NAME 

NAP 

NEWPT 

NEXITM 


NOT. 

NUMBER 

OCABC 


ocItasc 

OCTTpI 


OPEN 


MONTIM 
DYNAMO 
DYNAMO,  QUIT 
IN.,  OUT. 

CLP* 

CALLIT 

LIST* 

CLP* 

LIST  * 

TYPEIT,  INTONE 

ANDER,  IFSINT , IFSRCH,  INIDSK.  INIFDC . 
INIVAR,  LISTEN,  MONTOR,  PUT,  PREP, 
REND,  SHORT,  STRCH,  SUMOUT,  TABLE, 
T-YPEIT 

IFSRCH 

CLP* 

CLP,  NAME 
FRA  LG,  INI.C. 

FSO 

INIFIX 

CALLIT,  GETLIN,  INIMON,  MONTOR, 
SUPER,  TYPEIT 

CLP*  INIMON 

USE* 

IFSRCH  (LOCSEC),  REORD  (ME/. DIR) 

CLP* 

GETLIN 

FSOCLN 

AND.,  AUTHOR,  CLP,  -.DROP,  INFO,  IN., 

J LIST,  MONTOR,  NAME,  NUMBER,  OUT. 

CLP* 

CLP* 

SYSGEN 

ERRGO,  LISTEN,  PUTS,  TYPEIT 
FREE,  FRET 

BFOPEN,  CHKSAV,  CONDIR,  CONNAM, 
DYNAMO,  GETINT,  GETLIS,  IFSINT, 
INIRES,  INITYP,  LISFIL,  LISTSL,  LONG, 
MOVEIT,  NAME,  OPFILE,  SAVE,  SHORT, 
SUMOUT,  SYSGEN,  TRETRI,  USE 


O 

ERIC 
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SUBROUTINE 

CALLED  BY: 

OPFILE 

DYNAMO.  GET  LIN.  SENTRY 

OR. 

CLP* 

OTBL 

TABLK 

OUT. 

CALLIT 

PREP 

IN  IF  IX* 

PRT1?_ 

TYPASH 

PUT 

ASCIT,  ASCIT6,  CAPASC,  CHKNUM, 
EVAL,  GETFLD,  GETLIN,  INTASC,  IN., 
NEXITM,  OCTASC.  OUT.,  PUTS, 
SEEMAT,  SIGNIN,  TABLE,  TRANS, 

.C.  ASC 

PUTINC 

GETFLD 

PUTOUT 

TRASH 

PUTS 

TYPEIT  (internal) 

PUT6 

CTSIT,  CTSIT6,  PREP,  TRASH 

QUIT 

GO,  CLP* 

RANGE 

CLP* 

RDFILE 

ander 

RDFLX 

SYSGEN 

RDF LX A 

GETLIN,  INIVAR 

RDWAIT 

ANDER,  CALLIT,  CHKSAV,  CONDI R, 
CONNAM,  FSO,  GETINT,  GETLIS, 
IFSINT,  IFSRCH,  INITYP,  LISFIL, 
LISTSL,  MOVEIT,  NUMBER,  SAVE, 
SUMOUT,  SYSGEN,  TRETRI,  USE 

REND 

INIEND  ( ' 

RESTOR 

CLP*  — 

RJUST 

CHKNUM,  QUIT,  SYSGEN 

RNGNAM 

EVAL,  RANGE 

RPRIME 

TABLE 

RSCLCK 

DYNAMO 

SAVBRL  ?' 

SAVE 
SEARCH 
SEE  MAT 
SEGINT 

PUTS,  TYPEIT 

CLP*  / 

SUPER*  / 

CLP*  SUPER,  * 
SYSGEN 

SENTRY 

LINKUP 

SET BCD 

GETLIN,  PRT12,  TRETRI 

SETBLP 

AND.,  SEARCH 

SETBRK 

ININT,  INTONE,  TYPEIT 

■SUBROUTINE 

SETFUL 

SETMEM 

SETRTN 

SETSYS 

SETWRD 

SHIFT 

SHORT 

SIGNIN 

SIGN2 

SIZE 

SLEEP 

SPCTRN 

STANDL 

STBL 

STEM 

STRACC 

SUBJ. 

SUMOUT 

SYSGEN 

S.  T 

TABENT 

TABLE 

TABLK 

TBSRCH 

TESTMO 

TIME 

TIMEIN 

TITLE 

TOTTIM 

TOUT 

TRANS 

TRASH 

TRETRI 

TRFILE 

TSSASC 
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GETLIN,  PRTI2,  TRETRI 

FREE,  SYSGEN 

INIRES 

DYNAMO,  QUIT 

DYNAMO,  INIDSK,  LONG,  OPFILE, 
QUIT,  SHORT,  TYPEIT 

STEM 

s' 

CLP* 

SUPER* 

SUPER* 

INIFIX,  SUPER 

NAP 

FSO 

FSO 

TABLK 

S.T 

SEGINT 

CLP* 

MONTOR,  QUIT 
SUPER 

SUBJ.,  TITLE 

ANDER,  FSO,  IFSRCH,  NUMBER 
INIFIX* 

SPCTRN 

NEXITM 

TYPEIT 

CLP* 

(variable) 

CLP* 

(variable) 

(variahle) 

MONTIM.  SUMOUT 
TYPASH  ^ 

FSO 

CLEANP,  CONDIR,  CONNAM,  DELIST, 
INIRES,  NAME,  QUIT, 

ASCIT,  ASCITC,  ASCIT6, 'OETLIN 


605 


-590  - 


CALLED  BY: 


SUBROUTINE 


T YPASH 
T YPEIT 


USE 
VSRCH 
W'  AIT 
W F LX 
W.FLXA 
W HEN 
WHO  A MI 
WITH. 

W RF ILE 

WRFLX 

WRFLXA 

WRHGH 

WRT 

WRWAIT 


. C.  ASC 


INIDSK,  PUTS,  T YPEIT 

ANDER,  AND.,  AUTHOR,  CHKNUM, 

CLP,  CONNAM,  DROP,  ERRGO,  EVAL, 
EXIT,'  FSO,  GETFLD,  GETLIN,  IFSINT, 
IFSRCH,  INFO,  INIFIX,  INIVAR,  IN., 
LISFIL,  LIST,  LISTSL,  MONTIM, 

MPNTOR,  NAME,  NUMBER,  OUT.. 

PREP,  QUIT,  RANGE,  . REND, 

SEARCH,  SEEMAT,  SHORT,  SIGNIN, 

SIGN2,  SPCTRN,  SUBJ.,  SUMOUT, 

SUPER,  S.T,  TABENT,  TABLE,  TIME, 
TITLE,  USE 

CLP* 

LOOKUP,  STEM 
GETLIN 

CNTLOC,  FREE,  FRET,  PUTOUT.  T YPASH 

CNTL  FREE,  FRET 

MONTOxv 

FSO,  INXCON,  MONTOR,. 

CLP* 

BE"  WRIT 

CALLIT,  SYSCtEN 

CALLIT,  CLP,  OUT.,  PRTI2S,  SENTRY, 
SYSGEN,  TRETRI,  WFLXA 

TABLK 

COMENT,  'LIBRY 

ANDER,  CHKSAV,  CONDIR,  CONNAM, 

FSO,  IFSRCH,  IN  IRES , V 5VEIT , QUIT , 
SAVE,  SUMONT 

INIAUT,  INICON,  INIEVL,  INIFLD, 

INIOUT,  INIRNG,  IN  IRES,  INIS.T, 

INIVRB,  MONINT,  SAVE 


APPENDIX  F 


SUBROUTINE  LINKAGES 


SUBROUTINE 


CALLS 


ANDER  BUFSCN"',  CLOSE,  DORMNT,  FW  AIT , 

GETLIS,  LOCMES,  RDFILE,  R D W AIT  , 
TABENT,  TYPEIT,  WRWAIT 


AND. 


ANDER,  CHKNUM,  CT  SIT  6,  DRPPTR. 
NEXITM,  SETBLP,  TYPEIT 


) 


A SC  IN  T 

ASCIT 

ASCITC 


CHKNUM,  GET,  INC 

FRER,  GET  6,  INC,  INC  6,  PUT,  TSSASC 

FRET,  FREZ,  GET  6,  INC,  INC6, 

T JSASC 


ASCTTS 

ASIDE 

ASSET 

ATLCLN 

ATSCRN 


no  <j:alls 
ASSET 
no  calls 
no  calls 
BUFSCN 


AUTHOR 


CLEANP,  COPY,  DELIST,  FREE, 
FREZ,  GET,  NEXITM,  TYPEIT 


BCD ASC 

BCDEC 

BFCLOS 

BFCODE 

BFOPEN 


\ ASCITC 
no  calls 
no  calls 
no  calls 

BUFFER,  OPEN,  FWAIT 


BFREAD 


no  calls 


BFWRIT 


WRFILE,  FWAIT 


BUFFER 


no  calls 


-Indicates  procedure  called  via  CALLIT 


/ 


O 

ERIC 
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SUBROUTINE 

CALLS 

BUFSCN 

WRWAIT 

BZEL 

no  calls 

, CALLIT 

AND.  , ASCINT,  CHKNAM.  DROP, 
EVAL,  FAPDBG,  FC LEAN , 

GET  LIN,  LINKUP,  LIST,  MONTIM, 
NAME,  NOT.,  NUMBER,  OR.,  OUT., 
RDWAIT,  RESTOR,  SUBJ.  , TITLE, 
USE,  WRFLX,  WRFLXA 

CAPASC 

PUT,  GET,  INC  1 

CHACAP 

no  calls 

CHANGE 

no  calls 

CHFILE 

no  calls 

CHKNAM 

- BZEL,  CTSIT6,  FRET 

CHKNUM 

PUT,  GET  INC  1 , TYPEIT 

CHKSAV 

BUFFER,  CLOSE,  FILCNT,  TRFILE 

CLEANP 

* 

DRPPTR,  FILCNT,  TRFILE,  F CLEAN , 
FRET,  AT  LC  LN* 

CLFILE 

CLOSE 

N 

/ 

CT..OSE 

no  calls 

X 

CLP 

CALLIT.  DORMNT,  FRET,  FREZ, 
LOOKUP,  NEXITM,  TYPEIT,  WRFLXA 

CWTLOC 

WFLX,  WFLXA , OCTTOI 

COMARG 

GET  COM,  G TAM 

COMENT 

WRT 

COMPAR 

GET,  INC  1 

COMPUL 

GE  T , INC  1 

CONDIR 

BUFFER  .CLOSE,  OPEN,  RDWAIT, 

TRFILE,  WRWAIT 


ERLC  608 


SUBROUTINE 


CALLS 


CONNAM  BUFFER,  CLOSE,  DELFIL,  FilcNT  , 

FRER,  FRET,  OPEN,  RDWAIT,  TRFILE, 
TYPEIT,  WR  WAIT 


COPY 

no  calls 

CTSIT 

ASCTSS, 

FRER, 

GET, 

INC,  INC  6,  PUT6 

CTSIT6 

ASCTrfS, 

FREZ, 

GET, 

INC,  PUT  6 

DEAD 

no  calls 

DEC 

no  calls 

DEFBC 

no  calls 

DELBC 

no  calls 

DELFIL 

no  calls 

* f 

DELIST 

FCLEAN, 

TRFILE,  DRPPTR 

DERBC 

no  calls 

DIFF 

no  calls 

DIST 

no  calls 

DNSORT 

no  calls 

••  " 

DOR  LINT 


no  calls 


DROP  BCD ASC  , CHKNAM,  CHKS  A V *,CoN  DIR* 

DELFIL,  INCl  , NEX1TM,  TYPEIT 

DRPPTR  no  calls 

DYNAMO  CLOSE,  COMAR  G,  INIDSK,  INIMON, 

ININT,  INIRES,  INITYP,  INXCON  , 

) KILFAP,  LDOPT*  OPEN , OPFILE, 

RSCLCK,  SETSY3,  SETWRD 


ENDTAb 


no  calls 


0 . 

ERIC 


609 


SUBROUTINE 


CALLS 


ERROO 

EVAL 


BDCASC,  BFCLOS,  DORMNT , IODIAG, 
OCTASC , TYPEIT 

COPY,  DIST,  FLDNAM,  FRET,  FREZ, 
GETEND,  INC,  PUT,  RNGNAM , TYPEIT 


EXIT  TYPEIT 

FAPDBG  no  calls 

FCHECK  no  calls 


FC  LEAN 
FERRTN 
FIELDS 


FRET 
no  calls 
no  calls 


FILCNT 

FIND 

FLDNAM 

FRA  LG 

t-REC 

FRED 

FREE 

FRER 
FRESET - 
FRuT 

FREZ 


FSTATE 
GET,  INC! 
no  calls 

FRET,  MAINBD 

CINjTLOC,  DORMNT 

/ 

no  cavils 

CNTLOC  , DORMNT,  GETMEM,  OCTTOI 
SETMEM,  WFLX , WFLXA 

no  calls 

no  calls 

CNTLOC  , DORMNT,  GETMEM,  OCTTOI, 
WFLX,  WFLXA 

CNTLOC,,  DORMNT,  FREE 


FSIZE 


no  calls 


CLOSE,  DIST,  FIELDS,  FLDNAM,  FRALG, 
FSOCLN,  GETFLD,  GETINT,  GETLIS, 
GETP.  INC,  IN C 1 , INDENT,  INIDSK  , 
MATCH,  RDWAIT,  SFCTRN,  STANDL, 
TABENT,' TRETRI,  TYPEIT,  WHOAMI, 

WR  W AIT 


ERIC 


610 


SUBROUTINE 


CALLS 


FSCCLN 

GETINT,  INDENT,  NEWPT 

FSTATE 

no  calls 

FTRACE 

no  calls 

F W AIT 

no  calls 

GET 

no  calls 

GET  6 

no  calls 

GET  1 ? 

no  calls 

GETBLP 

no  calls 

GETBRK 

no  calls 

GETCOM 

no  calls 

GET END 
GETFLD 

COPY,  INIEND 

/ . 

COPY,  DEFBC;  FREE,  FRER,  FRET, 

FREZ,  GETINC,  GETSET,  GETTAB 
•’  INC,  INC  1 , INTASC , PUT,  PUTINC,  TYPEIT 

GETIME 

no  calls 

GET  INC 

no  calls 

GETIN  . 

CLOSE,  FRET,  OPEN,  RD WAIT 

GE  T LIN 

ASIDE,  CLFILF,  FILCNT , FRET,  FREZ, 
GET,  GETI2,  GETINC,  INC,  INC12 
INID3K,  INITYP,  NAP,  OFFICE,  PUT, 
RDFLXA,  SETBCD,  SETFUL,  TSSASC, 
TYPEIT,  WAIT 

GET  LIS 
GET  MEM 

FSTATE,  OPEN,  R D WAIT 
no  cal]  a 

GETOPT 

no  calls 

GETP 

no  1 ills 

GETSET 

no  calls 

GET SYS 

^alls 

ERLC 

631  > 

SUBROUTINE 


CALLS 


GET TAB 

no  -calls 

GETTIM 

no  calls 

GETTM 

GETIME 

GET WRD 

no  calls 

GNAM 

no  calls 

GIVTAB 

no  calls 

GO 

QUI^ 

IFSET 

no  calls 

IFSINT 

CHNCOM,  CLOSE,  FILCNT,  FRL^, 
FRET,  GIVTAB,  INIEND,  LOCMES, 
OPEN,  RDWAIT,  TYPE  IT 

IFSR  CH 

BCDASC , BITFSCN,  CLOSE,  COMPUL, 
DEFBC , DEMIST,  ERRO'1,  FRET, 
FREZ,  GET,  IFSET,  LOCMES,  NAM5, 
RDWAIT,  TABENT,  TYPE1T,  WRWAIT 

INC 

no  calls 

INC  I 

no  call  s 

INC  6 

no  calls 

INC  12 

no  calls 

INCHAR 

no  calls 

INDENT 

no  calls 

INFO 

CHKNUM,  CTSIT6,  FRET,  INITYF, 
NEKITM,  TYPEIT’ 

j 

INIAUT 

c>”  FRA  LG,  .C.ASC 

INICON 

FRA  LG,  .C.ASC 

INIDSK 

B1  CLOS,  BFOPEN,  FSTATE,  LOCMES 
SETV/RD,  TYPASH 

INIEND 

no  calls 

O 

ERLC 
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SUBROUTINE  CM  US 


INIEVL 

FRA  LG,  . C.  ASC 

INIFIX 

FRALG,  FREE,  FRET,  INICON, 

INIT2,  INI.  C.  , LOCMES,  MONINT,  PREP 
SIZE,  TABLE*,  TYPEIT 

INI  FLO 

. C.  ASC 

INI.  C. 

MAINBD 

INIMON 

GETTM,  MON  TIM 

ININT 

SETBRK 

TNIOUT 

FRALG-  C.  ASC 

INIPUT 

FREE,  FRET,  FREZ 

INIRES 

BUFFET,  CLOSE,  DEFBC,  FILCNT 
OPEN,  SETRTN,  TRFILE,  WRWAIT, 
. C . ASC 

INIRNG 

' FRALG,  . C.  ASC 

INIS.  T 

FRALG,  FREZ,  . C.  ASC 

INITDB 

FREZ 

INITYP 

FREE,  FRET,  FSTATE,  SETWRD 
GETWRD,  OPEN,  RDWAIT,  CLOSE 

INIT2 

INIEVL,  INIOUT,  INIS.  T 

INI  VAR 

CLOSE,  CO  vlARG,  FREE,  IFSINT, 
LOCMES,  RDFLXA,  TYPEIT 

INIVRB 

• , . C.  ASC 

INMON2 

no  calls 

1 INT  ASC 

INC,  PUT 

INTONE 

SETBRK,  OETBRK,  LISTEN 

INTTWO 

GETBRK, 

IN. 

** 

ASCINT,  COMPUL,  COPY,  FLDNAM, 
FREE,  GET,  INCI,  LEGFLD,  NEXITM, 
PUT,  WHOA  MI 
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CALLS 


subrovt::  . 


IN  X CON 

GETP?  WHOAM1 

IODIAG 

no  calls 

IS  ARC 

no  calls 

ISARGD 

no  calls 

SARGP 

no  calls 

ISARGV 

no  calls 

JOBTM 

no  calls 

KILP*&P 

no  calls 

K1LNBK 

no  calls 

LDOPT 

no  calls 

legfld 

no  calls 

LIBRY 

WRT 

t'iNKUP 

t 

SENTRY 

LISFIL 

BCD ASC , BUFFER,  CLOSE,  FILCNT , 
OPEN,  RDWAIT,  TYPEIT 

LIST 

BCDASC , LISTS  L-,  LISFIL-,  CHKSAV-, 
CHKNAM  NEXITM, TYPEIT 

JSTSL 

BCDASC,  BUFFER,  CLOSE,  CONDIR, 
FILCNT,  OPEN,  RDWAIT,  TYPEIT 

LISTEN 

ASIDE.  GETBRK,  LOCMES,  OCTASC.MONTTM,  FSOCLN 

LOCMES 

ASCITC 

LOOSE  C 

GET,  NAh'  5,  DEFBC,  OPEN 

LONG 

BUFFER,  CLOSE,  INTTYP,  OPEN,  SETWRD 

LOOKUP 

YSRCH 

MAINBD 

no  calls 

MATCH 

INC,  COMPAR,  COMPEL 

MCNINT 

FRALG,  FREZ,  . C.  ASC 

O 

ERIC 
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SUBROUTINE 

GALES 

MONTIM 

ASIDE,  GETIME.  JOBTM.  TYPEIT 

MON TOR 

ASCIT6,  ASIDE,  BCDASC,  COMPEL, 
INIDSK,  MONTIM,  NEXITM,  SUMOUT, 
TYPEIT,  WHEN,  WHO  AMI 

MOVEIT 

BUFFER,  OPEN,  RDWAIT , WRWAIT 

NAM  5 

GET,  INC  1 

NAME 

5NDER,  BUFFER,  CHKNAM,  CLOSE,  DRPPTR, 
‘LOOKUP,  NEXITM,  OPEN,  TRFILE , TYPEIT 

NAP 

SLEEP 

NEWPT 

FCLEAN,  WRWAIT,  TABENT,  CLOSE, 

NEXITM 

COPY,  DEC  1,  FIND,  FRET,  FREZ, 

GET,  INC,  INC!.  ISARG,  ISARGV  PUT, 
TBSRCH 

NOT. 

no  calls 

NUMBER 

ASCINT . CLEANP*,  DELIST,  DNSORT, 
FRET,  FREZ,  GETLIS,  NEXITM, 

I JWAIT,  TABENT,  TYPEIT 

OCABC 

no  calls 

OCDBC 

no  calls 

OCLBC 

no  ails 

OCRBC 

' no  calls 

OCT  ASC 

INC,  PUT 

OCTTOI 

no  calls 

OPEN 

no  calls  ^ 

OPFIEE 

OPEN,  SETWRD 

OR. 

no  calls 

OTBL 

no  calls 

OUTCOM 

no  calis 

O 

ERIC 
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/ 

' T>  ^ 

SUBROUTINE 


CALLS 


OUT, 

ASCINT.  COMPEL,  FLDNAM,  GET . 
INC  1 , LEGFLD,  NEXITM,  PUT, 
TYPEIT,  WRFLXA 

PREP 

ASCITC.  BCDEC,  BFCLOS,  FBOPEN, 
DORMNT,  FILCNT,  FRALG,  FRET, 
FREZ,  GET 6,  LOCMES,  PUT  6,  TYPEIT 

PRT12 

SETBCD,  SETFUL,  WRFLXA 

PUT 

no  calls 

PUTINC 

no  calls 

PUTOU^ 

> 

INC 6,  PUT 6 

PUTS 

ASIDE,  BFWRIT , DECT,  DORMNT, 
FSTATE,  GETBRK,  INCl , LOCMES, 
OCTASC , PUT,  SAVBRK,  T Y'PASH 

PUT6 

no  calls 

QUIT 

BCDASC,  BUFFER,  BZEL,  CHNCOM, 
CLOSE,  CTSIT6,  DORMNT,  FRET, 

. LDOPT,  NEXITM,  RJUST,  SETSYS, 
SETWRD,  SUMOUT,  TRFILE,  TYPEIT, 
WRWAIT 

/ 

RANGE 

\ 

ASCINT,.  COMPUL,  FRET,  FREZ, 
NEXITM,  RNGNAM,  TYPEIT 

RDFILE 

no  calls 

RDFLX 

RDFLXA 

RDFLXA 

no  calls 

RDWAIT 

no  calls 

r 

REND 

BFCLOS,  BFOPEN,  BFREAD,  CHNCOM, 
ENDTAB,  FljLCNT,  FRET,  FREZ, 
LOCMES,  TYPEIT 

RESTOR 

CLEANP*,  DELIST 

R JUST 

no  c nils 

RNGNAM 

no  calls 

RPRIME 

no  calls 
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RSCLCK 

no  calls 

RSOPT 

no  calls 

RSTRTN 

no  calls 

SAVE RK 

no  calls 

SAVE 

BUFFER,  CHKNAM,  CHKSAV,  CLOSE, 
NEXITM,  OPEN,  RDWAIT,  WRWAIT, 

. C.  ASC 

SEARCH 

ANDER,  ASIDE,  ATSCRN,  CLOSE, 
DEFBC,  FREE,  FSTATE,  IFSET, 
IFSRCH,  LOCMES,  NAMS,  SETBLP, 
TYPEIT 

SEE  MAT 

COPY,  INC,  INC  1 . INT ASC , PUT, 
TOT  TIM,  TYPEIT 

SEGINT 

INIAUT , INIFLD,  INIRNG,  INIVRB 
INMON2,  STRACE 

SENTRY 

no  calls 

SETBCD 

no  calls 

SETBLP 

no  calls 

SETBRK 

no  calls 

SETFRE 

SETFUL 

no  calls 

\ 

no  calls 

SETMEM 

no  calls  ( 

SETNBK 

no  calls 

< ~\ 

SETNCV 

no  call 3 

SETOPT 

no  calls 

SETP 

no  calls 

SE  TRTN 

no  calls 

SETSYS 

no  calls 

SETWRD 

O 

ERLC 

no  calls 

/ 

/ 

,/ 
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SUBROUTINE 


CALLS 


SHIFT 

no  calls 

i 

SHORT 

BUFFER,  CLOSE,  DORMNT, 

INIT YP,  OPEN,  SETWRD,  TYPEIT 

SIGNIN 

T 

. --  CTSIT6,  ’FRALG,  C-ET,  NEXITM,  - 
PUT,  TYPEIT 

SIZE  ' ..GET-MEM 


SLEEP  no  calls  . 

SPCTRN  COMPAR,  CGMPUL.DIST,  FIND,  INC, 

INCHAR,  TABLK,  TYPEIT 


STANDL 


no  calls 


STBL 
STEM 
STOPCL 
*STR  ACC 
SUBJ. 

SUMOUT 

SUPER 

SYSGEN 

\ 

S.  T 

O 

ERLC  . 


no  calls 

COPY,  DEC1,  GET,  INC,  SHIFT,  VSRCH  , 
no  calls 
no  calls  ' 

CLEANS,  DEEIST , FRET*  FRE Z , 

S.T,  TYPEIT  ' ~ - 

‘ J ' 1 

ASIDE,  BCDASC,  BFWRIT,  BUFFER, 
CLOSE,  DELFIL,  INIDSK,  LOCMES, 

OPEN,  RDWAIT,  TYPEIT,  WRWAIT 

\ . . \ 

ASIDE,  INIFIX*,  INIVAR*,  DYNAMO-, 
SIGNING,  FSO*,  FEIZE,  MONTIM,\  SIZE, 
CLP,  DORMNT,  SEARCH  *.  EVALA, 

FSIZE,  MONTIM,  SIZE,  SYSGEN,  SEEMAT- 
TYPEIT  ■'  N 

BCDEC,  BUFFER,  CHFILE,  CHNCOM,- 
CLOSE  , DELFIL,  FERRTN,  FRALG, 

FREE,  FRESET,  FSTATE,  GETCOM, 
GETLIN,  INITDB,  OCABC,  OPEN, 

RDFLX,  RDWAIT,  RJUST,  SEGINT, 
SETMEM,  WRFLX,  WRFLXA 

COPY, "FRET,  FREZ,  NEXITM, 

STEM,  TYPEIT 
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& 

TABENT 

TYPEIT 

TABLE 

ASCINT,  BFCLOS,  BFOPEN,  BFREAD, 
COPY,  DORMNT,  FILCNT,  FRALG, 
FREE,  FREZ,  INC,  INC  1 LOCMES, 
NEXITM,  PUT,  R PRIME,  TYPEIT 

TABLE 

COMPAR,  COMPUL,  FRET,  FREZ, 
GET,  INC,  INCHAR,  OTBL.STBL, 
WRHGH 

TBSRCH 

no  calls 

TESTMO 

no  calls 

TILOCK 

no  calls  = 

TIMCHK 

no  calls 

. TIME 

CLOSE,  NEXITM,  TYPEIT 

TIMEIN 

no  calls 

TIMER 

no  calls 

TIMLFT 

no  calls 

TITLE 

CLEANP,  DELIST,  FRET,  >FREZ, 
S.  T , TYPEIT 

TOTTIM 

no  calls  * — — •' 

TOUT 

no  calls 

TRANS 

COPY,  DEC1 , INC , ’ INTASC , ‘ PUT 

TRASH 

ASCTSS,  INC,  INC 6,  GET,  PUTOUT, 
PUT  6 

TRETRI 

DERBC,  OPEN,  RDWAIT,  SETBCD,  ‘ 

• 

SETFUL,  WRFLXA 

TRFILE 

no  calls 

TSSASC 

no  calls 

TYPASH 

DORMNT,  FREE,  FRET,  PRT12, 
TRASH,  WFLX 

0 

s < . •-  - 

ERIC 
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SUBROUTINE 

TYPEIT 


UPDATE 

USE 

VSRCH 


CALLS 

ASIDE  BCDASC,  BFOPEN,  BFWRIT 
DEC1,  DORMNT,  FRET,  FSTATE,  GET, 
GETBRK,  INC.  TNCI,  TNITYP,  INTASC, 

isargv,  listen,  locmes,  MONTIM, 
OCTASC,  PUTS,  SAVBRK,  SETBRK, 
SETWRD,  PUT,  TESTMO,  TYPASH 
RDWAIT 

no  calls 

BCDASC,  BUFFER,  CHKSAV*,  CLOSE, 
CONDIR*,  DELFIL,  FSTATE,  MOVEIT*,/ 
NEXlTM,  OPEN,  RDWAIT,  TYPEIT 


no  calls 


/ 


WAIT 

no  calls 

WFLX 

WRFLX 

WFLXA 

WRFLXA 

WHEN 

GETIME 

WHOAMI 

no  calls 

WHOM 

WHOAMI 

WITH. 

no  calls 

WRPILE 

no  calls 

WRFLX 

no  calls 

WRFLXA 

i no  calls 

WRHGH 

no  calls 

WRT 

/ ASIDE,  NEXITM 

WRWAIT 

no  calls 

. C.  A SC 

ASCITC , FRET, 
ISARGV,  PUT  . 

/ 

( 
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APPENDIX  G 


<2 

GLOSSARY  OF  INTREX  TERMS 


I£M 

affix 


ariding  mode 


attribute 


augmented  pointer 


CD. 


combined  searc 


Command  List 


Command  List  Pointer 


common  buffer 

\ 


condition  code 


DEFINITION 

1)  The  ending  removed  from  a subject  or  title 
word,  by  stemming. 

2)  The  initials  of  an  author. 


The  mode  of  operation  to  be  used  by  the 
Boolean  procedure  ANDER,  which  handles 
all  types  of  Boolean  commands  in  the 
manner  directed  by  the  mode. 

A particular  property  of  a reference  word 
which  may  be  -specified  by  the  user  to  narrow 
a search  request. 

Three  consecutive  computer  words  contain- 
ing the  aodr  'ss,  length,  type,  etc.  of  a re- 
ference list. 

A pointer  to  the  Command  List  array.lt  is 
stored  in  one  of  the  three  COMMON  words 
of  core  accessible  to  all  of  Intrex. 


A search  requests  consisting  of  two  or  three 
of  the  th  ee  types  of  primary  searches  (sub- 
ject, titi  author).  These  search  requests 
are  give  n the  same  command  line,  sep- 
arated L lashes  (/)  and  cause  an  intersec- 
tion of  document  numbers  of  the  .separate 
lists . 


A list  o iser  command  parameters  contain- 
ing poi  .ers  to  the  search  structure,  result- 
ant ref  rence  list,  and  output  request  data. 

See  C L * 

One  of  several  blocks  of  432  consecutive  core 
words  whose  addresses  are  in  the  POT^  to  * 
make  them  ..available  as  I/O  buffers  from  any- 
where in  Intrex. 


- A letter  code  attached  to  each  ending  in  the 
ending  table  specifying  the  exceptional  condi- 
tions in  which  the  ending  may  not  be  removed 
by  stemming. 
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TERM 

DEFINITION 

current  list 

A list  of  Inverted  File  references  resulting  - 
from  a search.  Boolean  operation,  document 
command,  or  restoration  of  a NAMEd  list.  It 
is  available  for  output  of  catalog  information 
or  full  text. 

data  base  initialization 

That  patrt  of  the  initialization  of  the  Intrex  soft- 
ware in  which  names  of  the  data  base  files  are 

document  count 

specified  via  the  tijme  - sharihg  console. 

The  number  of  different  document  numbers  in 
a reference  list  (usually  lower  than  the  number 
of  references  since  most  documents  have  several 
appearances  of  the  same  key  word.) 

Dump  File 

A file  used  by  Intrex  which  holds  the  results  of 
Boolean  operations  and  is, kept  open  for  both 
reading  and  writing. 

ending  code 

A 12-bit  code  representing  the 

address  in  the  ending  table  where  a particular 
ending  will  be  found. 

ending  table 

A table  of  English  word  endirf^s  which  may  be  re- 
moved to  leave  a common  stem  more  suitable  for 

searching  on  subjects  or  titles. 

* 

error  code 

A value  returned  from  a procedure  indicating  an 
abnormal  condition  has  occurred  during  execution 
of  that  procedure. 

fence 

A Special  computer  word,  file  word,  or  table  entry 
which  contains  a distinguishable  code  signaling  the 
end  of  the  data,  (often  777777  . . . 7^). 

find-point 

The  place  in  the  Inverted  File  where  the  search 
word  should  be  found  if  it  is  in  the  file. 

fixed- parameter 
initialization 

- The  phase  of.  Intrex  initialization  which  does  not 
depend  on  the  particular  console,  user,  mode,  date, 
etc.  and  so  can  be  done  once  by  Intrex  personnel 
and  saved  as  a semi-initialized  system. 

full-term  shred 

(See  shred) 

Guide  Directory 

A disk  file  used  by  Intrex  as  an  index  to  the  Guide 
File. 

Guide  File 

A disk  file  containing  the  text  of  the  labeled  sec- 
tions of  the  on-line  User's  Guide  available  through 
the  INFO  command. 

TERM 


DEFINITION 


held  system 

An  Intrex  session  which  is  "resumed**  using 
the  word  HOLD  as  an  argument  causing  au- 
tomatic recycling  through  the  subsystem 
INXSUB,  back  to  start  Intrex  again  after  a 
QUIT  or  BEGIN  command . 

lis  t 

An  Inverted  File  entry  containing  one  English 
* word  (or  character  group)  with  its  associated 

^ affix  codes  and  references. 

list  header 

A group  of  three  computer  words  containing 
data  (counts,  etc.)  pertaining  to  the  Inverted 
File  list  which  follows  it. 

list  pointer 

A single  computer  w'ord  containing  the  address 
of  an  augmented  (3-part)  pointer  to  a reference 
list  arid  with  the  document  count  of  that  list  in1 
the  decrepent  portion  of  the  pointer. 

long  mode 

One  of  the  two  dialog  modes  of  Intrex  which  is 
designed  to  instruct  and  inform  the  user  in  his 
interactions  with  the  system. 

Message  Directory 

A disk  file  used  by  Intrex  a's  an  index  to  the 
Message  File  and  which  also  contains  the  text 
of  core-stored  message  components. 

Message. File 

A disk  file  containing  the  text  of  labeled  mes- 
sage components  used  by  the  Intrex  dialog. 

Monitor  File 

A disk  file  used  to  record  all  user/lntrex  trans- 
actions and  related  timing  data. 

Name  File 

- A disk  file  used  by  Intrex  to  hold  the  reference 
lists  retained  by  the  user’s  NAME  commands. 

Parameter  Option  Table 

See  POT 

password 

A code  word  of  up  to  six  characters,  which  may 
be  specified  after  the  HOLD  argument  of  a "re- 
sume Intrex"  command,  providing  a means  of 
escaping  from  a held  system  back  to  CTSS  com- 
mand level. 

Password  File 

A disk  file  used  by  Intrex  to  retain  the  password 
of  a held  system  and  the  dialog  mode  for  use  by 
the  subsystem  in  restarting  Intrex. 

POT 

An  array  containing  a collection  of  Intrex  para- 
meters containing  over  40  computer  words  of 
assorted  data  which  help  to  control  the  operation 
of  Intrex.  ' 
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TERM 


definition 


POT. 

POT  Pointer 

primary  search 
range  restriction 

record 

reference 

reference  list 
reiloc 

resultant  reference  list 
Save  File 

search  term 
search  word 

secondary  search 
section 

section  header 
segment 


See  POT  pointer. 

A pointer  containing  the  address  of  the  start  of  the 

POT  array.  It  is  stored  in  one  of  the  >hree 
COMMON  words  available  to  all  Intrex  soft- 
ware. 

A search  of  the  Inverted  Files  for  matches  on 
the  search  term  or  author  name. 

Specification  by  the  user  of  a particular  subject 
term  weight  (0-5)  to  be  used  as  a reference 
selection  criterion. 

1)  A catalog  entry  describing  one  document  in  the 

2) .  £adi*k  segment  consisting  of  432  computer  words. 

A computer  word  containing  several  items  of  in- 
formation pertaining  to  an  Inverted  i lie  indexing 

word. 

A contiguous  group  of  reference  words  which 
share  one  or  more  characteristics. 

The  depth  into  a disk  file  at  which  reading  or 
writing  is  to  begin. 

See  current  list  ( 

A disk  file  named  by  the  user  for  the  purpose  of 
holding  NAMEd  lists  {of  future  Intrf^  sessions 
via  use  of  the  SAVE  comjmand.  / 

The  subject  or  title  phrase  or  author  name  given 
by  the  user  in  his  search  request. 

A single  English  word  (or  group  of  characters),  de- 
limited by  spaces  or  hyphens,  which  is  par  o 
search  term. 

An  exact-character  match  ot  ^‘"‘J-Vcommlnd 
acters  given  by  the  user  in  a RESTRICT  comma 
against  the  characters  in  the  specified  field. 

Part  of  an  Inverted  File  segment  consisting  of  432 
computer  words , or  1 disk  record. 

A single  computer  word  containing  a pointer  to  the 
fir&t  list  in  an  Inverted  File  section. 

A disk  file  consisting  of  part  of  the  set  of  Inverted 
Files  or  Catalog  Files. 
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DEFINITION 


session  initialization 

* 

The  phase  of  Intr ex  software  initialization 
which  must  be  performed  at  the  outset  of  each 
intrex  session.  This  complements  fixed- 
parameter  initialization  . 

short  mode 

The  dialog  mode  of  Intr  ex  which  uses  abbre- 
viations and  keeps  prompting  to  a minimum. 

shred 

A unit  of  data  produced  by  processing  the  cat- 
alog input  and  consisting  of  one  index  term 
with  its  accompanying  reference. 

SST  - 

A pointer  to  the  System  State  Table.  It  is  stored 
in  one  of  the  three  COMMON  words  available  to 
all  Intrex  software. 

stemmed  shred 

A shred  produced  from  a full-term  shred  by 
stemming  and  decomposing  into  single  index 
words  and  adding  an  aff9$H£ield.  These  shreds 
are  used  to  generate  or  update  the  Inverted  Files. 

stemming 

The  removal  of  common  endings  from  the  words 
in  an  index  according  to  an  algorithm  and  table 

System  State  Table 

A computer  word  in  which  each  bit  position  is  a 
Boolean  indicator  specifying  if  particular  system 
conditions  are  tr\j&  or  false. 

System  State  Table 
Pointer 

See  SST. 
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DATA  BASE  HENS  RATION  PROCEDURE 


1.  Data  is  entered  into  the  computer  in  the  form  of  files  containing 
ten  catalog  records  each.  This  data  is  typed  in  from  computer 
consoles,  using  the  edit  program  QED. 15 

2.  The  input  files  are  proofread  and  then  corrected  using  QED. 

3.  DRYRUN  is  run  to  examine  the  files  for  errors. 


4. 

5. 


6. 


7. 

8. 


9. 


c . 


d. 


Errors  found  by  DRYRUN  are  corrected  using  QED. 

The  program  WETRUN  generates  three  files  and  updates  two  others: 

a,  SUBTJT  date  is  generated  which  contains  the  subject  and  title 

terms  (shreds)  extracted  from  field  73  and  field  2j4  of  each 
catalog  record.  - _ ' ! _ 

b.  AUTHOR  date  is  generated  which  contains  the  names  of  the 

authors  which  were  in  field  21  of  each  record.  t 

Catalog  segments  with  names  of  the  form  CRxxx  M25100  are 
generated.  Each  segment  contains  about  fifty  catalog  re- 
cords. The  data  in- these  segments  has  been  reformatted  to 
make  it  more  easily"  accessible  by  the  retrieval  program.  , 

\ . 

The  file  CAT  DIR  FILE  is  updated  with  pointers  to  the^n^w 
catalog  records. 

e.  FICHE  DIRECT  is  updated  with  the  fiche  addresses  of  the  new. 
documents. 

The  catalog  segments  generated  by  WETRUN  are  compressed  to 
55%  of  tfreir  original  size.  The  program  MASH  does  t±xe  compression 
by  converting  the  ASCII  character' codes  to  digram  codes,  which  rep- 
resent  two  characters  in  one  nine-bit  byte. 

^ v { * 

AUTHOR  date  is  processed  by  SORT  to  produce  the  file  SORTA  date. 

IFGENA  is  run  to  integrate  the  data  in  SORTA  with  the  current 
author  Inverted  File,  thus  generating  a new  set  of  Inverted  File  seg- 
ments, AIkxx  date.  IFGENA  also  produces  the  directories  IF  DA  dhte" 
and  IFTABA  date.  These  directories,  are  used  by  the  retrieval  pro- 
gram to  locate  authors  in  the  Inverted  Files. 

STEMER  is  used  to  parse  the  subject  and  title  terms  in  SUBTIT  date 
into  individual  word  shreds  ahd  then  to  stem  them.  These  stems  are 
written  into  the  file  STEMKD  date. 
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10.  SORT  is  a * run  which  uses  STEMED  date  to  generate  a file  of  sorted  . 
subject  and  title  stems,  called  SORTS  data. 

11.  {JFGEKS  is  used  to  merge  SORTS  date  with  the  current  subject/title 
Inverted  File,  producing  the  segments  Slxxx^date.  1FGENS  abo 
creates  two  levels  of  directories  for  the  Inverted  File:IFl3S  date 
and  IF  TABS  date. 

12.  IFTEST  is  executed  to  scan  the  new  Inverted  Files  for  format  errors. 

13.  IFLIST  is  used  to  list  the  contents  of  the  Inverted  Files  creating 

the  ASCII  files  SUBFIL  IF  LIST  and  AUTFIL  IF  LIST. 
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